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ABSTRACT 


User and programmer oriented documentation for the flexible body option 
of the Takeoff and Landing Analysis (TOLA) computer program are provided In 
this report. The user Information provides sufficient knowledge of the de- 
velopment and use of the option to enable the engineering user to successfully 
operate the modified program and understand the results. The programmer's 
Information describes the option structure and logic enabling a programmer to 
make major revisions to this part of the TOLA computer program. 
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1. INTRODUCTION 


The purpose of this report le to summarize the flexible body option of 
the airplane Takeoff and Landing Analyals (TOLA) computer program an'* “xplain 
how to use this option In conjunction with the overall program. The flexible 
body option was developed by McDonnell Douglas Astronautics Company-East under 
NASA Contract NASl-13259 for Investigation of aircraft response In a ground 
operating environment. 

The original TOLA computer program developed by Air Force Flight Dynamics 
Laboratory personnel provides a complete simulation of the takeoff and landing 
of a rigid airplane. The flexible body option provides the additional capa- 
bility of predicting the total motion of specified points on the aircraft 
Including elastic airframe effects. 

It should be emphasized that the flexible body option Is but a part of 
the overall TOLA computer program. Successful operation of the program 
depends on proper input of all required data and Interpretation of the result- 
ing output. Much of these data are associated with the existing rigid body 
version of TOLA. It Is not the purpose of this document to define theae data, 
for this Is done In Reference 1. The user should not attempt to execute the 
TOLA computer program without first becoming familiar with the Information 
contained in this reference. 

Programming Information on the structure ard flow logic of the flexible 
body option Is also contained In this report. Additional Information on the 
structure of the entire TOLA computer program Is given in Reference 2. 
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2. PROGRAM DEVELOPMENT 


2.1 Pro gram Description and Capr.bllltlea - The flexible body option 
version of TOLA vldes the capability to predict the total notion of an 
aircraft in the ground operating environment including airframe elastic effects 
and landing gear dynamics. It can simulate any conventional aircraft having 
up to fivi landing gears and four engines with the airframe considered either 
rigid or flexible. In the flexible airframe option, the flexibility is 
represented by superposition of the free-free vibratory modes on the rigid 
body motion. From one to twenty modes may be Included to represent this air- 
frame flexibility. The dynamic effects of a maximum of five Independent 
landing gears can also be simulated. The landing gear modelled In the program 
Is a double air chamber oleo strut with balloon tires, similar to that used 
on the C-5 aircraft (Figure 2-1). Each of the struts must lie in a plane 
parallel to the aircraft plane of symmetry, but the strut axis may be non- 
perpendicular to the longitudinal aircraft axis. 
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The simulated aircraft, as represented by the airframe rigid and flexible 
body equations of motion and the strut, strut secondary piston and wheel 
equations of motion, may be subjected to time varying forces. The forces 
considered In the problem Include engine thrust, aerodynamic loads including 
ground effects, drag chute forces, landing gear tire-ground reaction and 
braking forces. These forces may be varied and/or staged within the aircraft's 
capability by the maneuver logic and autopilot simulation. 

The function of the autopilot simulation Is to specify the timing and 
magritude of the aircraft's control system ini uts required for the desired 
aircraft performance during glide slope, flare, landing roll and takeoff roll. 
The maneuver logic utilizes Information on the state of the aircraft obtained 
from solution of the airplane equations of motion to compute state errors. If 
necessary, It defines maneuvers required to maintain proper aircraft attitude 
by specifying parameters such as angle of attack, roll angle, thrust level and 
braking values. The maneuver logic also controls the staging of such events 
as spoiler activation, kill power, thrust reversal, drag chute deployment and 
brake activation In both normal and unusual takeoff or landing situations. 

The unusual situations Include engine failure, brake failure or tire blow-out. 

2.2 Development, of Equations of Motion - To determine the response of 
an aircraft under any of the conditions described above, the equations of motion 
for that aircraft must be solved. As complex as the various options in the 
TOLA computer program may seem, they simply calculate their particular influ- 
ence on these equations. The flexible body option Is no exception. To under- 
stand this option and its effect on the overall program, its contributions to 
the existing equations of motion must first be understood. Since the equations 
which define the effects of a flexible airframe cannot be uncoupled from the 
overall problem, this section will give a general development of the total 
aircraft equations of motion including flexibility effects. 

In developing the airplane equations of motion, the airplane main body 
is defined as the eirplane less its landing gears. As such, the airplane is 
represented by K+l bodies. The aircraft main body is considered the 0 th body 
while a typical landing gear is considered the k th body with K being the total 
number of gears. Although the landing gears are considered rigid, they are 
allowed to move relative to the main body. 


The coordinate systems used in the development of the equations of motion 

are shown in Figure 2-2. The inertial coordinate system (X^ v Y^» 7 ^) is fixed 

relative to the earth's local acceleration gravity vector. The body coordinate 

system (X , Y , Z ) moves with the airplane and Is fixed at the center of mass, 
o o o 

The strut coordinate system (X^ , , Z^) moves with the airplane and Is located 

relative to the body coordinate system by the vector (R^) ^ and the angle Ok, 
This axes system Is aligned such that the direction of gear movement Is along 
the vector. 

The dynamic motion of the main body Is described using the norm«.l mode 
method. In this method the main body motion ** approximated by the combination 
of a limited number of vibratory inodes plus the six rigid body modes. The 
main body's flexibility is represented by Its free-free (unrestrained) vibra- 
tory modes. The rigid bod* modes are assumed to be the three translational 
displacements defining the airplane center of mass and three angular dis- 
placements defined In the body coordinate system. 

In developing the airplane equations of motion, expressions defining the 
motion of an arbitrary point located on the landing gear and/or main body 
were obtained. These were used to evaluate the kinetic and potential energy 
of the airplane. The equations of motion were obtained by applying the 
Lagranglan equations to these energv expressions. 

Using Figure 2-3* the total displacement of a point 1 Is defined as 


pki * R + <V 


♦ r 


kl 


( 2 - 1 ) 


kl 


kl 


• position vector of point 1 relative to the inertial coordinate system. 


<V ‘ 


position vector of reference point on main or 0 tJl body relative to 
inertial coordinate system. 

position vector of k C ^ body reference point relative to the body 
coordinate system. 

position vector of point 1 relative to the strut or k th body coordi- 
nate system. 

Subscript defining a specific body. The airplane minus Its gears is 
the body (k ■ 0). A t,,/*cal landing gear Is the k c ^ body 
(k - 1, 2, 3 . • • K) . 
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It Is assumed that the position vsctors (R^) and r^ used to locate 
point 1 in equation (2-1) can be separated into terms which vary with time 
and terms which remain constant with time. Thus! these vectors muy be 
written 


<V -"v. ♦ R v.< t > 

O 


ki 


r ki. * r ki. (l) 


( 2 - 2 ) 


where P, * unde formed position of body reference point in the body 
8 coordinate system 

R^ # (t) ■ deformed position of k th body reference point in the body coor- 
dinate system measured from the undeformed position of that point 

r. . ■ undeform?d position of point 1 in the strut coordinate 

8 system 

r^^*) • deformed position of point i in the strut coordinate system 
measured from the undeformed position of that point 

The a* position vectors are shown in Figure 2.4. 



FIGURE 2-4 POSITION OF POINT i RELATIVE TO BODY COORDINATE SYSTEM 
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Sine* it Is assumed that the elastic deformation of the airplane main 
body can be repreaented by the superposition of a limited number of vibratory 
modes, the terras of (R^> and r ki that vary with time may be written as 

* -k 

* £ ♦„ <„ (t > 

n»l 

. n* < 2 ~ 3 > 

ana for k • 0 

N 

7 ol. (t > ■ E *n <»n (t) 
n-1 


where N • number of vibratory modes includeu 
-1 -k . 

, $ » magnitude of n elastic mode at points 1 and k respectively. 

n n (k used aa a superscript refers to attachment point of k c ^ body, 
k - 1, 2, 3...K) 

q • generalized coordinate associated with the n C ^ mode. These 

are a function of time. 


Combining the above equations gives the final form for the location of a point 
i (Figure 2-3) as 


°ki ■ R + 


n-1 


♦n V° + r 


kl 




> q (t) 
n M n 


(2-4) 


The kinetic energy of the K+l bodies, T, is obtained by summing the 
kinetic energy of all points 1 in the system having mass m^ 


T 



I u. _L 

“Hci p ki P V1 


(2-5) 


where 


K - total number of landing gears 
I - total number of mass points 

a 

■ time derivative of the displacement vector 
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The potential energy, U, due to the strain energy of the main or 0 
body Is 


U 


N 



n-1 


tn 

n 


2 

«n 


( 2 - 6 ) 


where ■ the natural frequency of the n*^ free-free mode 

in^ * generalized mass of n*^ elastic mode 

The airplane's equations of motion were obtained by using the Lagrangian 
equations and the energy expressions of (2-5) and (2-6). The Lagrangian 
equations nay be written 


d_ 

dt 



3T 3U_ 

3q 3q 
F P 



(2-7) 


where q , q 

V H P 



p th generalized coordinate and generalized velocity respectively 
generalized force or moment in p th mode 


The resulting rigid body translational, rigid body rotational, and the flex- 
ible body equations of motion are given In Equations (2-8), (2-9), and 
(2-10) respectively. 


Certain simplifying assumptions were made in the equations of motion. 
These assumptions were consistent with those made in the existing TOLA 
formulation. In the rigid body equations, the Coriolis acceleration terms 
for the landing gear struts were neglected mainly because the rotational 
velocities of the aircraft are small at landing relative to strut acceleration 
terms retained. Also, in the rigid body rotational equations, terms involv- 
ing the variation of the inertia or inertia derivative tensors resulting from 
changing position vectors of the strut masses are small. The changes in the 
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RICIP BO DY TRANSLATIONAL EpUATION S 


? T ■ M T R - £ Vk >\31 T + 


xo 


k-1 


N K 

*k33 T zo> + £ £ - k V„ (♦ 

n-1 k-1 


k T 

xn xo 


♦ * k T + $ k I } 

yn yo y zn zo J 


( 2 - 8 ) 


RIGID BODY ROTATIONAL EQUATIONS 

K 

" 0 ■ ! ' “ + " X [I • Uj + £ V k [- A kU ^ T xo + (A ku i |Mi 

k-1 

* \ll R ksx ) So ’ \l3 R ksy *zo ] 

N K 

4 ^ ^ V*n | lR ksy Sn " (R ksz 4 \ll (r Fk " S kc )) *yn J So (2-9) 

n-1 k-1 f 

4 “\.g 4 \ll (r Fk " S kc» *xn - <\.x * \l3 (r Fk ’ S kc )) *zn ] T yo 

4 J(R ksx ‘ A kl3 (f Fk “ S kc^ *yn " \ay ^xn 1 Soj 
Symbols are defined on the following page 
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RIGID BODY EQUATIONS OF MOTION 


T 

\ 

Sr 

*kll 


• total applied force acting on K-fl bodies 

■ total maos of K-fl bodies 

- mass of the k th strut 

■ acceleration of k tl1 strut mass 

A. n , \ -lit A, ■ direction cosines relating strut coordinate syst 

to o C " body coordinate system 

- total moment of all applied forces on K-fl bodies about 0 th body 
center of mass 

- Inertia tensor for the K-fl bodies about 0 th body center of mass 

■ angular velocity of 0 th body in body coordinate system 


em 


^sx* 

■St.y ’ "ksz 

- x, 

Y, Z 

r Fk 

■ distance 

from 

strut 

S kc 

■ distance 

from 

strut 
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FLEXIBLE AIRFRAME EQUATIONS OF MOTION 


FOR S • 1, 2, 3, ... N 


N K 


i *q* 4 u> m q 4 m [$ $ 4 ♦ 4 $ $ )q* 

8° s s s s k xs xn ys yn zs T zn 

n-1 k-1 


+ £ V ( * - \3t V *xs + Y * k y * < Z - *k33 V *z. ] 
k-1 


4 u ) 

X 



4 u> 

y 



4 (!) 

z 



“k [R ksy *z« " (R ksz + ^11 <r Fk " 8 kc )} *ys' 

“k l(R k»z + \ll <r Fk " 8 kc» **■ * (R ksx " \l3 (r Fk 
V (R k.* “ \l3 (r Fk * S kc» ♦$. - V ♦x. 1 • Q . 


( 2 - 10 ) 


s kc» ♦;.! 


T DC A 

Q * Q 4 Q 4 Q - Generalized forces associated with 8 th mode due to 
8 engine thrust, drag chute deployment and aerodynamic 
pressure respectively 


Symbols are defined on the following page 
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FLEXIBLE AIRFRAME EQUATIONS OF MOTION 


m i q » cj 


8 8 


.DC 


Generalized mass , generalized coordinate and natural frequency 
respectively associated with the 8 th elastic free-free mode 


T 1 T 2 T 3 T 4 

X8 xl X 8 x2 X8 x3 xs x4 


T xl through T^ - Engine thrust forces 


T T 

1 4 

<t> through $ ■ Magnitude of s th mode shape at point 

force application 


.^F + *° C F 

xs cx ys cy zs cz 


F , F , F - Forces due to deployment of drag chute 
cx cy cz 


DC DC DC 

* , <t . <fc - Magnitude of s th mode shape at point of 

y xs ys zs 

force application 


- -B 1 $ A a + B 2 / y - B 3 n, + B A 0 A 1 H 5 0 A m + B 6 0 A n 

s ’xs s ys 7 8 ZS f 8 xs 8 ys 8 zs 


•. y. n , 


■f 

/ , / , / - Magnitude of a th mode shape at point of 


xs ys zs 


- Aerodynamic forces; 1, m,n - aerodynamic moments 

Magnitude of » th 
force application 

lope of s 1 
ppll cation 


e A . 0 A . e A ■ Slope of s th mode shape at point of moment 
xs ys zs 


B 3 through * Participation factors for s th mode 
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gear positions are very small compared to the overall airplane dimensions, 
therefore the variation of the inertia terms due to gear position changes are 
small and were neglected. The flexible airframe equations of motion were 
also simplified by neglecting terms analogous to those neglected in the rigid 
body equations. Coriolis and centripetal type accelerations of the strut 
masses were considered small, again mainly because the rotational velocities 
of the aircraft are small relative to the strut acceleration terms retained. 
Rigid body "tangential" type acceleration terms that vary with changing 
position vectors were neglected; however, all others were retained. 

Reference 3 gives a more thorough derivation of the total aircraft 
equations of motion. In addition, topics such as the determination and 
implementation of elastic airframe effects on strut equations of motion are 
also discussed. The reader will find additional information on these and 
other aspects of the flexible body option version of TOLA presented in 
Reference 3 that will aid his understanding of the program operation. 


3. PROGRAM DESCRIPTION 

3.1 Program Structure - The equations describing the motion of points 
on a flexible airframe are formulated and solved In subroutine FLEX1. This 
subroutine can determine the response at twenty points on an airframe whose 
stiffness characteristics are defined by the modal deflections and natural 
frequencies for a maximum of twenty modes. A matrix approach was used to 
simultaneously formulate and solve all flexible body equations of motion at a 
particular point In time. 

The basic structure of TOLA has been retained. It still consists of 
three OVERLAY segments. OVERLAY (TOLA, 0, 0) consists of the executive sub- 
program TOLA. Through its call to subroutine EXE, It calls the other two 
overlays and controls the execution of the complete program. T0LAN1 Is the 
executive subprogram In OVERLAY (TOLA, 1, 0). It reads the input data and 
checks to determine If the proper amount of Input date has been supplied. 

T0LAN2 is the executive subprogram in OVERLAY (TOLA, 2, 0). It provides the 
autopilot and phasing functions. A diagram shoving the general structure of 
the revised TOLA program Is given In Figure 3-1. This diagram Is not Intended 
to be a comprehensive programming chart, but shows the general flow of the 
flexible body option logic. A listing of the TOLA computer program is given 
In Appendix A. 

Subroutine FLEX1 Is located in OVERLAY (TOLA, 0, 0). The format used 
in structuring this subroutine closely follows that of existing subroutines 
so as to make It compatible with the logic used In the TOLA program. This 
structure enables calls to entries In FLEX1 to be placed In the EXE and 0PT1 
subroutines at those points where calls are made to other subprograms that 
perform similar functions. 

All Input data associated with the flexible body option are stored in 
COMMON/ D I RCOM/ . Those data calculated within the subroutine and passed to 
other parts of the program are stored in COMMON / FLX0P / . This use of common 
simplifies the communication between subroutines. 

3.2 Program Operation - An understanding of program development in it- 
self will not result in smooth program operation. Successful operation of 
the TOLA computer program with the flexible body option depends on proper in- 
put of all required data. Much of these data are associated with the existing 
rigid body version of TOLA. It Is not the purpose of this document to define 
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these dais, for this la dona In Reference 1. The sections that follow will 
describe the geneial Input data format, define all possible data aaaoclated 
with the flexible body option and the manner In which It la to be Input, and 
dlocuss the resulting output. 

3.2.1 General Input Data Forma t - The Input data associated with the 
flexible body option are read Into the program by the existing Input routine 
(READ). As a result. It must follow the same general format as the rigid 
body data. The Input must follow the following format: 


Card Columns 

1-6 

7 

8-10 

11 

12-66 

67-72 

73-80 

Field Number 

I 

II 

III 

IV 

V 

VI 

VII 


Field number I contains the alphanumeric variable name of the data con- 
tained in Field V. Example: 



The program will assign a value of "1" to the variable INDFLX. 

Field number II is not used. 

Field number III Is used to define the type of data In Field V by means 
of the words DEC, BCD, INT, TRA or a blank. DEC and blank are equivalent and 
denote that data which follow are In decimal form. The work 0CT specifies 
that the data In Field V are to be Interpreted as octal numbers. The word 
BCD specifies that N binary coded, six character words (N punched in column 
12) are to be loaded. These decimal words begin In column 13. The largest 
number of six character words that can be loaded from one card Is nine. The 
user should make sure that BCD data does not get punched Into Field VI, or an 
input error will result. When the word INT Is used, it Is assumed that all 
numbers in Field V will be loaded as Integers. If only one integer Is punched 
per card, the INT may be omitted. The word TRA denotes to the read routine 
that all data have been input and to return control to the calling program. 
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On the first card, the 4 in colunn 12 indicates that four '/ords follow; each 
word is six characters long. This is a remarks card which helps Identify the 
data that follows. The second card defines a variable array FREQ(l) whose 
elements are 2.0, 5.67 and 200.0 respectively. The third card donotes the 
ond of the data. 

Field number IV is not used. 

Field number V contains the data input to the program. DEC, 0CT and INT 
numbers must be left adjusted; that is, data must always start in column 12. 

All numbers must be separated by a comma and the field terminates with the 
first blank. BCD Information begins in column 13. Because the field ends 
with a blank, the user may add any comments in the remainder of the field. 

Field number VI specifies the initial array location or subscript of the 
data in Field V. If this field is blank, an initial subscript of 1 is implied. 
The subscript may appear anywhere in the field. Example: 



In the example, SXMOD is an array containing five elements. The first element 
is 0.075 while the fourth element is 1.0 as denoted by the 4 in column 67. 

Field number VII is not used as far as the input routine is concerned. 

3.2.2 Input Data for the Flexible Body Option - The revised TOLA com- 
puter program can be run considering either a rigid or a flexible airframe. 

In either case, all of the data defined in Reference 1 for a particular case 
must be input . The additional data required by the flexible body option of 
the TOLA computer program are defined in Figure 3*2 and discussed below. 

To use TOLA when the airframe is considered rigid, the indicator INDFLX 
must be equal to zero. No other additional input is required. 

To use TOLA when the airframe is considered flexible, the indicator 
INDFLX must be set equal to one and additional data describing the airframe 
elasticity are required. The number of free-free normal modes, NM0DF., repre- 
senting the airframe flexibility must be specified. A maximum of twenty modes 
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INPUT 

INDICATOR/ 

VARIABLE 

COORDINATE 

SYSTEMd) 

INDICATOR OR VARIABLE DEFINITION 

1NDFLX 


INDICATOR DEFINING OPTION 
1NDFLX - 0 - RIGID AIRFRAME 
INDFLX - 1 - FLEXIBLE AIRFRAME 

MODE 


INDICATES NUMBER OF MODES INPUT 
(20 MAXIMUM) 

GMASS1 (I) 


GENERALIZED MASS OF I TH ELASTIC MODE 

GFREg(l) 


FREQUENCY OF I TH MODE (RADIANS/SEC) 

SXMUD(I) 

BCS 

X MODE SHAPE FOR STRUT ATTACHMENT POINTS 
IN I TH MODE 

SYMOD(I) 

BCS 

Y MODE SHAPE FOR STRUT ATTACHMENT POINTS 
IN I TH MODF 

SZMOU(l) 

BCS 

Z MODE SHAPE FOR STRUT ATTACHMENT POINTS 
IN I TH MODE 

TXMOD(I) 

BCS 

X MODE SHAPE FOR ENGINE THRUST APPLICATION 
ATTACHMENT POINTS IN I TH MODE 

ARMODE(l) 

BCS 

x,Y,z,e x ,e y ,e 2 components of mode shape 
FOR AERODYNAMIC FORCE AND MOMENT REFER- 
. ENCE LOCATION IN I TH MODE 

PF(I) 


PARTICIPATION FACTORS OF GENERALIZED 

AERODYNAMIC FOP.CES AND MOMENTS IN I TH MODE 

SKC(K) 

SCS 

DISTANCE BETWEEN K TH STRUT AXLE AND STRUT 
CENTER OF MASS 

DCMCDE(I) 

BCS 

X, Y ,Z COMPONENTS OF MODE SHAPE FOR DRAG 
CHUTE ATTACHMENT POINT IN I TH MODE 

NPTS 


NUMBER OF POINTS ON THE AIRFRAME AT WHICH 
OUTPUT IS REQUESTED (20 MAXIMUM) 

ROIS(J) 

BCS 

ROISX, ROISY , ROISZ COMPONENTS OF POSITION 
VECTOR FOR .1 TH POINT ON FLEXIBLE AIRFRAME 
AT WHICH OUTPUT IS REQUESTED 

OUTMOD(I) 

BCS 

X, Y,Z COMPONENTS OF I TH MODE SHAPE FOR 
POINTS ON FLEXIBLE AIRFRAME AT WHICH 
OUTPUT IS REQUESTED. 

IFLX(I) 


INDICATES THE POINTS WHOSE DATA WILL BE 
STORED ON TAPE 


(1) NOTE: BCS - BODY COORDINATE SYSTEM SCS - STRUT COORDINATE SYSTEM 


FIGURE 3-2 INPUT DATA FOR TOLA FLEXIBLE BODY OPTION 
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can be used. The natural frequency, GFREQ(l), and general ixed mass, CMASSl(I), 
for each mode must be input. The mode shape magnitudes, SXMOD(I), SYMOD(Y), 
SZMOD(Z) , for each mode at the atrut attachment locations should be input. 

While the program will run without these input data, It will use a value of 
taro for the mode shape magnitudes. Similarly, the mode shape data at the 
point of application of the engine thrust, TXMOD(l), and aerodynamic forces 
and momenta, ARMODE(I), should be Input for solution of any practical takeoff/ 
landing problem. 

The aerodynamic loads are treated as concentrated loads In TOLA In the 
form of total aerodynamic forces and moments acting at a selected reference 
point on the airframe. To obtain realistic flexible body response, weighting 
effects or participation factors, PF(I), of the aerodynamic lo A ds on the res- 
ponse of each normal mode are required. If aerodynamic effects on the flexi- 
ble airframe response are desired, the user must input the proper values for 
the PF(I) array. If the PF(I) are not Input, the default values for this 
array are xero and all effects of the aerodynamic loads on modal response are 
assumed to be small ar.d therefore neglected. A general approach for calculat- 
ing the aerodynamic weighting effects is suggested In Appendix B. 

All of the arrays used In the flexible body option are In vector form 
(one dimensional), and the subroutine expects the modal data to appear In a 
particular order on the data Input ards. The order required by the subrou- 
tine is best shown through an example. If the aircraft simulated in the pro- 
gram has three landing gear struts and two engines, and four vibratory modes 
are selected to represent airframe flexibility, then the typical Birut and 
engine attachment point modal data would appear as follows: 

Stxut 1 Attach Point 


Mode 

X 

Y 

Z 

1 

-.41 

.68 

-.14 

2 

.36 

.03 

.79 

3 

-.40 

-.08 

.03 

4 

-.25 

.16 

.17 
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Strut 2 Attach 

Point 




Hods 

X 

Y 

Z 


1 

-.83 

.69 

-.33 


2 

.48 

.06 

.86 


3 

-.83 

-.07 

.05 


4 

-.47 

.17 

.38 


Strut 3 Attach 

Point 




Mode 

X 

Y 

Z 


1 

-1.00 

.69 

-.41 


2 

.52 

.07 

.89 


3 

-1.0C 

-.08 

.05 


4 

-.55 

.17 

.49 


Engine 1 Attach 

Point 


Engine 2 Attach 

Point 

Mode 

X 


Mode 

X 

1 

-.64 


1 

-.68 

2 

.29 


2 

.36 

3 

-.59 


3 

-.65 

4 

-.32 


4 

-.37 

Write each component of the 

strut attachment point mode 

shape as 


array dimensioned number-of-struts x numb er-of -modes . 


though in an 



-.41 

.38 

-.40 

-.25 

[SXM0D] - 

-.83 

.48 

-.83 

-.47 


-1.0 

B 

.52 

-1.0 

-.55 

a 


.68 

.03 

-.08 

.16 

[SYMOD] - 

.69 

.06 

-.07 

.17 


.69 

t 

.07 

-.08 

.17 

■ 


-.14 

.79 

.03 

.17 

[SZMOD] - 

-.33 

.86 

.05 

.38 


-.41 

.89 

.05 

.49 


The engine attachment point modal data should be written in an array dimensioned 
number-of-engines x number-of -modes : 


-.64 

-.68 


.29 


-.59 


-.32 


[TXMOD] 


36 -.*3 


-.37 


Transform each array into vector form by reading thr. matrix elements by 
columns. Thus the order in which the data is read would be as follows: 


SXMOD 


-.41 

SYMOD - . 68 

S2M0D - -.14 

TXMOI) - -.64 

i 

• 

oo 

w 

.69 

-.33 

-.68 

-1.0 

.69 

-.41 

.29 

.38 

.03 

.79 

.36 

.48 

.06 

.86 

-.59 

.52 

.07 

.89 

-.65 

0 

1 

-.08 

.03 

-.32 

-.83 

-.07 

.05 

-.37 

-1.0 

-.08 

.05 


-.25 

.16 

.17 


-.47 

.17 

00 

m 

• 


-.55 

.17 

.49 



These data would then be placed on cards according to the format described In 
the previous section. 

Typical aerodynamic data and participation factors would appear as 
follows : 

Aerodynamic Data 


Mode 

X 

Y 

Z 

°X 

e Y 

e z 

1 

.16 

.20 

-.89 

.0004 

.0045 

.0009 

2 

.20 

.15 

-.96 

.0002 

.0053 

-.0003 

3 

.12 

.08 

-.65 

-.0001 

.0038 

.0010 

4 

.05 

.09 

-.59 

.0003 

.0036 

-.0007 

Participation Factors 






Mode 

X 

Y 

Z 

e x 

0 Y 

e z 

1 

.30 

.36 

-1.87 

.15 

-.93 

.20 

2 

.46 

.39 

2.15 

.12 

-1.15 

-.09 

3 

.28 

.21 

-1.13 

.04 

-.83 

.21 

4 

.16 

.24 

.97 

.08 

-.79 

-.17 


Again, write the data in an array where each column represents the data for a 
single mode; then read the matrix columnwise. 
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A 



■ - 


- 

ARMODE - 

.16 .20 .12 .05 

PF - 

.30 .46 .26 .16 


.20 .15 .08 .09 


.36 .39 .21 .24 


-.89 -.96 -.65 -.59 


-1.87 2.15 -1.13 .97 


.0004 .0002 -.0001 .0003 


.15 .12 .04 .08 


.0045 .0053 .0038 .0036 


-.93 -1.15 -.83 -.79 


.0009 -.0003 .0010 -.0007 


.20 -.09 .21 -.17_ 

ARMODE - .16 

PF - .30 

.20 

.36 

i 

• 

00 

yo 

1.87 

.0004 

.15 

.0045 

-.93 

.0009 

.20 

.20 

.46 

.15 

t 

.39 

• 

• • 

SKC(K) and DCMODE(I) are optional data. The program sets these quanti- 


ties to zero If not input. SKC(K) is the distance from the tire axle to the 
strut center of mass measured along the strut stroke. It is approximately 

• 

equal to zero for many landing gears. The order in which the struts are num- 
bered in SKC(K) must be consistent with the order implied by the strut attach- 
ment point mode shapes. If the third row in the modal data represents ie motion 
of the third strut attachment point, the third element in array SKC(K) ;t be 
the described distance for that strut. 

DCMODE(I) defines the mode shape at the drag chute attach point and is 
necessary only when the aircraft has a drag chute. These modal data are in- 
put in an order similar to that for the aerodynamic data. If written in a 
two-dimensional array, each column of data represents the X, Y, Z components 
of the mode shape for a given mode. 

The remaining input data indicated in Figure 3-2 are necessary to obtain 
flexible body response output on the airframe. NPTS indicates the number of 
points at which output is requested. ROIS(J) are the X, Y, Z components of 


26 



the position vector defining the location of the points relative to the air- 
frame or Oth body coordinate system. OUTMOD(l) are the components of each 


mode shape at those points for which 

output 

is specified. 

As 

before, the 

order of the data 

is significant and 

an example will best 

show 

this. If out 

put is desired at 

two points on the . 

aircraft 

, typical data 

would appear as 

below: 
Point 1 

Location 

Mode 

1 

2 

3 

4 

X - 2.71 

X 

.09 

.11 

.05 

.02 

Y - 17.63 

Y 

.02 

.01 

.03 

.01 

Z - 1.52 

Z 

.95 

-.98 

.87 

-.77 

Point 2 

Location 

Mode 

1 

2 

3 

4 

X - 2.71 

X 

.07 

.10 

.04 

.01 

Y - 8.42 

Y 

.01 

-.02 

.03 

-.02 

Z - 1.25 

Z 

.43 

-.39 

.41 

-.29 


The matrix ROIS(J) should be written as though dimensioned 3(X,Y,Z) x NPTS 
And then read by columns. For the above example, ROIS(J) would appear as 
follows : 


ROIS(J) - 2.71, 17,63, 1.52, 2.71, 8.42, 1.25 


Each column of OUTMOD(I) should contain all of the modal data for a given 
point. The X component of data for all modes should procedc the Y component, 
with the Y component preceding the Z. Written in two dimensional form for 
the example being considered, OUTMOD(I) would be given as: 


1 0UTM0D ] 


.09 

.07 

.11 

.10 

i 

• 

o 

ui 

-.04 

.02 

.01 

.02 

.01 

.01 

-.02 

Cl 

o 

1 

-.03 

.01 

-.02 


X Component 


Y Component 


27 




95 

.43 

98 

-.39 

87 

.41 

77 

-.29 


Z Component 


This matrix should be transformed to vector form by reading the elements by 
column. 

The array 1FLX(I) dictates which flexible body response data will be 
saved on rape and used as input for a plot routine. Subroutine FLEX can 
formulate and print the flexible body response at up to twenty points on the 
aircraft. IFLX(l) enables the user to select from these points, those whose 
data will be plotted. Each output point is assigned a number by the order in 
which their modal data appears in array 0UTM0D(1). An element in IFLX whose 
value is one will cause the data for that respective point to be placed on 
tape. For example, if response data is formulated at five points on the air- 
craft, IFLX - (1, 0, 1, 1, 0) will cause all flexible body data associated 
with point numbers one, three and four to be saved on tape. Other indicators 
required to store TOLA output data are discussed in Section 3.2.5. If no 
flexible body response data is desired, NPTS, R0IS, 0UTM0D and IFLX need not 
be input. 

There is no specific system of units associated with the input informa- 
tion, except for the modal frequencies which must be expressed in radians/ 
unit time. All other parameters may be expressed in any consistent set of 
units, either English or Metric (Inches or centimeters, pounds or dynes). 

The units selected must, of course, be consistent with the rigid body set 
used (see Reference 1) . 

3.2.3 Output Data from the Flexible Body Option - The data that can be 
output from subroutine FLEX1 consists of the flexible body components of the 
inertial accelerations, velocity and displacement in each of the three body 
coordinate directions and the total inertial acceleration and velocity in 
each coordinate direction. The output variable names used in FLEX1 and their 
definition are given in Figure 3-3. 

3.2.4 Staging the Flexible Body Option into the Program - If aircraft 
elasticity is desired in an analysis, the program will turn the flexible body 
option subroutine on at the same time the landing gear subroutine is staged 
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ALL QUANTITIES ARE IN BODY COORDINATES 


POINT - DEFINES THE POINT NUMBER (1-20) 

XD2F - X COMPONENT OF THE INERTIAL ACCELERATION DUE TO FLEXIBILITY 

XD2T - X COMPONENT OF THE TOTAL INERTIAL ACCELERATION 

YD2F - Y COMPONENT OF THE INERTIAL ACCELERATION DUE TO FLEXIBILITY 

YD2T Y COMPONENT OF THE TOTAL INERTIAL ACCELERATION 

2D2F - Z COMPONENT OF THE INERTIAL ACCELERATION DUE TO FLEXIBILITY 

ZD2T - Z COMPONENT OF THE TOTAL INERTIAL ACCELERATION 

XD1F - X COMPONENT OF THE INERTIAL VELOCITY DUE TO FLEXIBILITY 

XD1T • X COMPONENT OF THE TOTAL INERTIAL VELOCITY 

YD1F - Y COMPONENT OF THE INERTIAL VELOCITY DUE TO FLEXIBILITY 

YD1T - Y COMPONENT OF THE TOTAL INERTIAL VELOCITY 

ZD1F - Z COMPONENT OF THE INERTIAL VELOCITY DUE TO FLEXIBILITY 

ZD1T - Z COMPONENT OF THE TOTAL INERTIAL VELOCITY 

XDOF - X COMPONENT OF DISPLACEMENT DUE TO FLEXIBILITY 

YDOF - Y COMPONENT OF DISPLACEMENT DUE TO FLEXIBILITY 

ZDOF - Z COMPONENT OF DISPLACEMENT DUE TO FLEXIBILITY 


FIGURE 3-3 OUTPUT VARIABLES USED IN FLEX1 


• SStii n 


into the program. This is done by testing the values (if ho li the flexible 
body option indicator (1NPFLX) and the landing gear indicator (INDLC) both 
must be non-zero for flexibility effects to be included. 

Initial generalized displacements are calculated based on values of 
variables at the time the option is staged into the program. These initial 
displacements are then used in subsequent calculation of the generalized 
accelerations . 

3.2.5 Data P lotting I nform ation - Majoi revisions were made to the sub- 
routine that stores data for use by a separate plotting program. As now re- 
written, subroutine SDFLCP first prints headers that identify the variable 
names oi the data that follow. These headers arc printed only once. Each 
call to the subroutine then writes to tape all data associated with a single 
time point. This eliminates the need to store the data in intermediate 
arrays . 

The indicators described in Reference 1 and earlier in this report that 
control the logic in SDFLCP have not been modified. They are as follows: 


J.PLT - 1 
ISDF « 1 
ISTPL1 « 1 
1STPL2 - 1 
ISTPL3 - 1 
ISTPL4 - l 
ISTPL5 * 1 
IFLX(I) - 1 


denotes that data will be stored on tape for plotting 
indicates rigid body data will be saved 


denotes that data for landing gears number J through 5 will 
be stored on tape 


indicates that flexible response data for the 1 th output 
point will be saved 


A new plotting program was developed to be compatible with the data for- 
mat of the revised TOLA subroutine SDFLCP. This program, entitled PLTDAT, is 
submitted as a separate job after a data tape has been generated by the TOLA 
program. The plot tape generated by PLTDAT can then be used by any off-line 

plotting device, a listing of the PLTDAT computer program is given in Appendix C. 

The plot program was designed to permit the user a high degree of flexi- 
bility in the use of the program. Any variable stored for plotting may be 
chosen as the independent variable. Not only does this allow conventional 
time history plots to be made, but also such plots as the altitude of the 
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center of mass versus downrange position or strut acceleration versus strut 
stroke. A maximum of five dependent variables can be plotted on a single graph. 
This enables the -aer to make direct comparisons of several simultaneously 
displayed variables. 

All graphs are scaled to an 8-1/2 x 11 Inch page size; however, the actual 
plotting area depends on the number of dependent variables. The ordinate (de- 
pendent variable) axis is six Inches In length. The length of the abclssa 
(Independent variable) axis ranges from 9.4 Inches for one dependent variable 
to 7.0 Inches for five dependent variables. 

The input data required by the plot program must follow a particular for- 
mat. The first card contains an integer (format 16) that specifies the number 
of data points plotted per graph. The remaining cards control the number of 
plots, define graph titles and dictate the dependent and independent variables. 
This is accomplished by beginning each data card with a control identifier. 

These control identifiers are TITLE1 , TITLE2, INDVAR, DEPVAR and PLOT. All 
identlfleis must begin in column 1 with their associated data beginning in 
column 11. TITLE1 and TITLE2 permit a 40 character title and subtitle to be 
printed on the graph. If no titles are desired, these data are omitted. 

INDVAR defines the variable name on that card as the independent variable. 

DEPVAR defines a maximum of five variable names (format 5A10) as dependent 
variables. The word PLOT causes the graphs to be generated with the current 
titles, dependent and independent variables. 

In order to uniquely identify all variables, a two digit numerical prefix 
Is assigned to each repetative data name. For example, if TOLA subroutine 
SDFLGP has saved data for landing gears one, three, and five, PLTDAT will assign 
a 01 prefix to all data for gear one, a 02 prefix to all data for gear three, 
and a 03 prefix to all data for gear five. Thus the strut acceleration for 
gear five would be 03SD2 while the strut stroke for gear three would be 02S. 

Figure 3-8 shows a sample of Input data for the plotting program. TOLA 
subroutine SDFLGP has already saved flexible body data for three points on 
the aircraft and landing gear data for gear numbers one, three, four and five. 
The first line In the plotting data indicates that two hundred points will be 
plotted on each graph. The main title for the first plot is ’’TOLA TIME HISTORY" 
While the subtitle is "STRUT ACCELERATIONS". The independent variable is time. 
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The dependent variables are the strut accelerations corresponding to the flr.»e 
three gears for which data la stored, struts one, three, and four. 



FIGURE 3-4 SAMPLE OF PLOTTING DATA 


For the second graph, no main title is defined so the program uses the 
current title defined by TITLE1. The subtitle for this plot is "STRUT 
DISPLACEMENTS" as shown by the TITLE2 card. The independent variable has 
not beer, redefined and therefore is still time. The dependent variables are 
the strut displacements for gears one, three and four. 

The third and final plot Indicated by these data also uses the current 
main title but redefines the subtitle as "FLEXIBLE ACCELERATION-PILOT STATION". 
The independent variable is still time while the single dependent variable is 
the vertical acceleration at the first flexible body point. 

The following standard CalComp plotting routines are called by PLTDAT : 


PLOTS 

PLOT 

SCALE 

NUMBER 

LABFL 

SYMBOL 

AXIS 



3.2.6 Comments on Program Operation - In addition to a working knowledge 


of the program, the user is generally interested in the size of the program 






<jSsTA A 


and Its operating coat. Using the existing OVERLAY structure, the TOLA com- 
puter program with the flexible body option has a core requirement of 67K 
octal words. Most of the space associated with the flexible body option it- 
self Is allocated to store the potentially large quantity of Input modal data. 
Every effort was made during program development to streamline the option. 

Program operating costs vary from one computer system to the next so it 
Is not possible to develop a single cost formula. Several observations, how- 
ever, can be made. The major factors that effect the cost of a TOLA run are 
the total number of integration steps and the number of variables that need 
to be integrated. The number of integration steps Is dictated by the time 
length of the analysis and the Integration step size. Although the user has 
little control over the step size chosen by the Integration routine, he can 
directly input the time at which the program will terminate. Care should be 
taken to Insure that the program does not continue to run beyond the points 
of Interest. An approximation to determine the time of a flexible body run is 
given by the expression: 

< time >flex 4 (time) rigid 
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4. SUBROUTINE DESCRIPTIONS 

A description of all subroutines added to the original version of the 
TOLA computer program is Included in this section. Also, those existing 
equations that were modified to Include flexibility effects are shown. The 
executive subroutine of the flexible body option is FLEX1. This routine 
contains calls to the other subroutines associated with the option, and as 
11 group, formulates and aolves the equations of motion for points on the 
flexible airframe. 

4.1 FLEX1 - Subroutine FLEX1 formulates a maximum of twenty coupled, 
second order differential equations, and through matrix manipulation, solves 
the following set of simultaneous linear equations: 

[A] { q } - { B } (4-1) 

The coefficient matrix [A] la i function of the generalized mass corresponding 
to each mode, the mode shape defined at each stivit attach point, and the strut 
masses. The matrix B Is a function of all external forces and terms con- 
sidered as forces during each time Increment. The independent variables |q| 
are the second derivative of the generalized coordinates with respect to 
time. 

The overall subroutine Is divided Into several entry points with each 
entry performing the: function described below: 

FLEX1 establishes data blocks and array sizes and initializes variables. 

FLEX2 computes those components of matrices (Aj and |b| that are time 
invariant and determines the initial generalized displacements. 

FLEX3 computes the time varying components of matrix |b} and formulates 
the simultaneous linear equations as a function of q. 

FLEX4 is null. 

FLEX5 Is null. 

FLEX6 formulates and prints the output data generated by the flexible 
body option. 

FLEX7 transfers tine dependent variables to and from the integration 
routine. 

^R£C£DiriG pale not filmed 
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4.2 DECOMP - Subroutine DECOMP Is pert of e package that aolvaa the 
■et of elmulteneoue equetlone defined In equation (4-1). DECOMP manipulates 
the coefficient matrix [A] Into upper and lover triangular form which, com- 
bined with subroutine SOLVE, eliminates the need for a matrix Inverse routine. 
Subroutine DECOMP Is called from ENTRY FLEX2 . 

4.3 SOLVE - Subroutine SOLVE determines the values of |q| based on the 
upper and lover triangular coefficient matrix calculated In DECOMP and the 
matrix )b| determined In TLEX3. Subroutine SOLVE Is called from ENTRY FLEX3. 

4.4 SING - Subroutine SING prints error diagnostics and terminates the 
program If subroutine DECOMP cannot properly transform the coefficient matrix 
[A] Into upper and lower triangular form. SING Is called from DECOMP. 

4.5 M atrix Subroutines - The subroutines that follow are standard CDC 
library matrix routines that are Included with the option to make the program 
Independent of any machine library shortcomings or limitations. All of these 
routines are called from ENTRY FLEX2 or ENTRY FLEX3. 

ARAY - Subroutine ARAY converts a data array from single to double 
dimension. The CDC library title for this routine (ARRAY) was changed since 
there was an existing TOLA subroutine by that name. 

CTIE - Subroutine CTIE adjoins two matrices by columns. 

LOC - Subroutine LOC computes a vector subscript for an element In a 
matrix of specified storage mode. 

GTPRD - Subroutine GTPRD gives the transpose product of two general 
matrices . 

GMSUB - Subroutine GMSUB will subtract two general matrices. 

GMADD - Subroutine GMADD adds two general matrices. 

GMPRD - Subroutine GMPRD computes the product of two general matrices. 

4.6 Modifications to Existing TOLA Equations - Existing TOLA equations 
were modified to Include the effects of flexibility on landing gear displace- 
ments, velocities and accelerations. The three components of the strut attach 
point position vectors, R^, R^, R^, were revised to Include the gene ilized 
flexible displacement as follows: 
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(4-2) 


where lj, end transform the dlsplacernei:* a from Inertial exea to body 

axes systems. 

The changes In the strut velocity equations resulted from Introducing 
the generalized flexible velocity As rewritten, the components of the 
strut attach point velocity vector are as follows: 


*dx 

"w 


/ N k 

■w ( < ’2>zn 
' n-l 

■Sy + 

' n-l 


N . \ N . 

- r Y 4 )q * V ♦ q 

L* yn / n n xn n n 

n-l n-l 

N k \ N k 

- p Y * I q ♦ Y ♦ q 

K ^ zn I n yn ^n 

n-l ' n-l 


(4-3) 



where p, q, and r are the rigid body roll, pitch and yaw rates respectively. 

Similarly, the strut acceleration equations are modified by incorpor- 
ating the generalized flexible acceleration q. The revised equation then 
takes on the form 


S ♦ a 


k 31 


1 q 

xn ^n 


n-l 



(4-4) 


All of these modifications to the landing gear equations were made in sub- 
routine LGEA3C. 

The forces and moments resulting from landing gear flexibility were 
Incorporated into the rigid body equations as shown below. 


•t £, ' V "« 

■ t, fc % •!" "» 

1 ' ' 2 ' t, "n 


*x ” F x 


F • F 
Y r Y 


L - L 


-fct 


“k {R k«y ♦in ’ lR ksz + *kll (r pk * S k c )J *yn } ^n 


(4-5) 


" ‘ " ' ti £1 ■» “■*»• * *iu »rk - s k ,n - I**, - (v.„n 


♦ k ) q 

zn n n 


1^1 1^1 t " 8k «y *«" + (R k»x " *kl3 (r Fk ‘ S kc )J ♦yn ) ** n 


These additions were made in subroutine LGEAR1 . 
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5. FLOW LOGIC FOR FLEXIBLE BODY OPTION 
Subroutine FLEX1 employ* a matrix approach to formulate ami solve the 
flexible body eq<»atlons of motion. These equations are given as 


m «]M 

‘kr w [«y- • ky mbj *rj t h 


[<n [*;j T i w 


Kl 0 0 

0 |«,J 0 

° 0 i"k(J 



zn 


] w 


(fc] T [[*v.J * |> - g [vj] - [^[M- |> - s .c] 

[\i|){Vk} 

([*ys] [['VsxJ [ r FV ■ s kc] [\njj ' [♦*.] [ R k8>|{‘z m k} * { 


q b | (5-1) 


Definition of these symbols with their program variable names are given In 
Figure 5-1. 

Many of the terms in Equation (5-1) are constant and need be calculated 
only in the Initial call to subroutine FLEX1 after the option has been staged 
into the program. Rewriting this equation in a shorthand matrix form that 
separates the constant terms from the time dependent variables yields 

I* " ®k31 *k 

[M] )q| + [K] )qj + [GF0RC1] _ V 


* " a k33 S k 


[CF0RC2] {u^J 


+ [GF0RC3] jw a} + [GF0RC4] - jQ s ( 


(5-2) 


A comparison of Equations (5-1) and (5-2) will aid in determining which terras 
are included in each of the shorthand matrix expressions. 

Each matrix in Equation (5-2) is formulated in a particular section or 
entry of subroutine FLEX1. The subroutine further manipulates the equation 
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Into a set of linear, simultaneous lations with q aa the Independent variable. 

IH] j q j - J B} (5-3) 

Thla set of equations la then solved for q. 

The flow diagrams that follow Indicate the sequential approach used to 
formulate the components of the flexible body equations of motion and the 
subsequent solution of these equations. A section of subroutine coding Is 
listed preceded by an explanation of the function of that section. The 
notation used in the coding is given In Figure (5-1). 

A complete listing of the modified TOLA computer program with the flexible 
body option Is given In Appendix A. 


m G MAS SI 

8 

GENERALIZED MASS OF 6 th MODE 

G1REQ 

NATURAL FREQUENCY OF 8 th MODE 

_k _k _k 

X, Y, Z COMPONENTS OF THE MODAL DEFLECTIONS 

xs ys zs 

FOR THE k th STRUT ATTACH POINT 

SXMOD, SYMOD, SZMOD 

m k SMASS 

MASS OF k th STRUT 

X, Y, Z 

RIGID BODY TRANSLATIONAL ACCELERATIONS 

a kll* ^13* a k31 ’ a k33 

DIRECTION COSINES RELATING STRUT COORDINATE 

All, A13, A31, A3.3 

SYSTEM TO BODY COORDINATE SYSTEM 

Sj. SDD 

ACCELERATION OF k th STRUT 

^Scsx* ^sy* ^Hcsz 

X, Y, Z COMPONENTS OF STRUT ATTACH POINT 
POSITION VECTOR 

r Fk 

DISTANCE FROM STRUT ATTACH POINT TO EXTENDED 
POSITION OF AXLE 

S kc 

DISTANCE FROM STRUT AXLE TO STRUT CENTER OF 
MASS 

• 3 

a 

• 3 

a 

• 3 

RIGID BODY ANGULAR ACCELERATIONS 

x y z 




GENERALIZED FORCES 


FIGURE 5-1 DEFINITION OF S/MBOLS 



ENTRY FLEX1 
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ORIGINAL PACL- . 

OF POOR QUALfl Y 


ENTRY FLEX2 


TEST OPTION INDICATOR 


IF C IN'Jt*' L * • t • . .Ok. IN HO. L 


FORM LA ARRAY USED BY INTEGRATION ROUTINE 


•MODE 

NUPU ( NVu«. lAi 


DETERMINE THE COUPLED GENERALIZED MASS MATRIX [M] 


GMAiSCNA) sgMflSii lO 
DO 31 Nsl.NSTPUI 
LLAa(N-i.)*,4STRUTtN 
SMASS (LLA) sMASSCNI 
CALL G1HRJ(SXHOD # VlASS,CTMP 
CALL GMPA J( CliP: f SxiOP,3ShO 
CALL GMA'iJ(GSMCO»fthASStGHAS 
CALL GT PH MSVN,; j , 3f- A 3S.CTMT 
CALL GMPPJICT 1P;,SYMO'),GSHO . 

Call gmAj ) ( gimcd, G.iA ii ,i*mas%nmoO 
CALL GTPRJCSZMO'JofiASb.CTflP; 

Call GMPR JIClMPl f S2MU') f GSMGDt NMOC* 
CALL GMA-JJ CG.SMTJ ,GhASS. GMA SS . NMOU 


i , in I I « nhuUl 
DtNMOOt , NSTRUT 
if NIOD- t NMOj£ ) 
MiTRJt.NHGOt 
NIOOE , NSTRUT 
NHQOc . NMOOE) 
NSTKJT « NNOOt 


CONVERT MASS MATRIX INTO TRIANGULAR FORM 


CALL A <AY{ . ,f MCjl»NM0Ol .U jiAiS fCOPMASI 
CALL DECOiP ( NHCUL »C OPHA§#C OiF ) 











omcfN/ii. : 

OF POOR Q UJ. 



m 




prv* . .i v 



£ 







ENTRY FLEX3 



C 








CALCULATE GENERALIZED DRAG CHUTE FORCES 
F JC ( i ) s F CZ 


CALCULATE GENERALIZED AERODYNAMIC FORCES 

UO 4Z X *i • NMCCc 

MX!-.)*;*! 

sA*MU0_(NN*i) *Y<*/7P 
r r Jo? ' U* ; ! : tA*MOOc. (**.<♦ ) • ANA 77o 
?{J?J ul ( NN* 4 ) • ALA77F 

( HN+ 'ti “ A* y CCc ( N f i ♦ 4 ) *Amu? 

SU"?? i r- ^ 0£ * NN *'-» > *»naz/r 

UJ h3 JJ-.-S 

** ' (I:)*ctmpi 

call GMAOJC Q5 f jT F »nS» NNUJE , l ) 


FORM THE GENERALIZED STIFFNESS FORCES 

™ ft, f ( j*-»^MOJt 

4 •. 8 1 « i I y i H I » i S V " i f 2 1 n f * 1 * 6 F ■ ‘ ^ 11 ‘ 1 1 » • ^ • 


SOLVE FOR THE GENERALIZED ACCELERATION 
CALL SOlVl ( NMOLE * CJfcf 9 f lS«GQ0l) 





ORIGINAL 
OF POOR QUAUTt 



ENTRY FLEX4 


RETURN 


ENTRY FLEX5 


RETURN 
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o 



TEST IF OUTPUT IS DESIRED 
IF iNPT5.cO.il RETURN 


ORIGINAL PACtS .S 
OF POOR QUALITY 


call 

CuiL 


ilFLI 

5tfL( 


FORMULATE AND PRINT OUTPUT DATA 


CacL StfLC.ib* 
00 s>Z I*lf riPTS 

SJi <<) 

SJ 2 (O -m. 

(JO bl J * 1 » NMOOc 


ICON* < ( I-L) • j^K-II* N*1G J£ ♦ J 
Su. (K) - S J - ( K) ♦ CU i MO 0 ( NC ON) *&Q(J) 

>0l (*> = Sj* l K) ♦OUTlv.DC NC ON) *0001 < J) 
o* >02 (K I *3.'i2(K)*0UfMG0lNCCN) *0002101 

lx* cx-iFO*i 

LY=LX» i 
LZ = L Y ♦ * 

<02Fm«SJ2Cl) 

XJ2TI I) = A*7 7f ♦XjtPl II *2.MOI77’<»S9l (3) -RI77R*S01 C2 ) ) ♦ 
MPI77R*RI7/»^QI7 7R*> ♦ (-VOIS C L Z > (31 J ♦ (PI 7 79* 417** 

•-RI77R; )*(P01j(LY)^SJi (2) ) -<QI77R*QX 77R^RI77R*RI77 P) 

* • IROIb (LX) ♦|5a(in 
YJ2F ( 1 1 =SJt (2 ) 

YJ^T ( I) r ay 7 7Ff VJcF( I# ♦2.* ( R1 7 7R*S0i ( 1 ) -P I 7 7 301 < 3 I I ♦ 

Ma|77R*PI77*4RI77R.) • ROIS (LX)fSOJ (1) ) ♦< 01 7 7R* RI 77 P 
♦-PI 7 7R* IMROISILZI* SGw ( 3 1 ) - ( *17 7R* * 1 77 A + PI 7 7P*PI 77 R ) 

* * (ROISILY) ♦SO. (cl) 

Z02F(I)*3J te (i) 

l\Vt I < I) -AZ77Ff I) ♦ CPI77R*SJl (2I-0I77 k*SJi (l i ) ♦ 

• <«J77P,*0I77*4P|7 7R1 )• (ROIS <LY>*SQO C2I ) ♦ I RI 7 7R*PI 7t R 
•- JI 7 7*: ) •( -01 J (LX) * sc. ( 1 ) > -<PI77 R* P I77R#QI 77 R*4I?7 R I 

• M ROI $ ( LZ I +SD » ( .) ) 

XL) 1 h (1) *5 )» Cl) 

XU T( I) -U7 7 7F*XOlF( I)*0I77R* (ROIS CLZ)*SO0(3) I-RI77R* 

• ( * 0 1 S ( L Y I ♦ b 0 L ( 2 ) ) 

YJiF ( I) *3 U(2) 

YJiT ( I) =V777F*Y0lF( I ) ♦ ? I77 k* ( ROI S ( L X ) ♦ SO J < i II -PI 77 R* 
MR0IS(LZI*sb*(3) I 
ZJlMI ) (!) 

ZJlT (I) *W7?7F^Z )iF( II ♦PI77K+CROXS(LY) + SO*(2))*-4X77R* 

♦ ( * 0 IS ( l x / f ,ivt ( :) ) 

<j;f(I) ( i) 

Y ) . F ( 1 ) = 3 J , ( C ) 

Zu.f (I) Sjj. (’) 

PTNsFLUAT (I ) 

CALL STJVA- ffl.PTN,X02F(I) , X02 T (II # YD2F II I f Y 021 ( I ) f Z D2F C I » , 
♦ZJ2TII) .X.)*F (I) I 

CALL STO»/Ax(d f <(J1T( I) f YClF (I) f YOlT ( I) t 2ClF( I) ,ZOll ( I) ,XD.F(I) , 
♦YO.F(I) .ZJ.PCII) 
o2 CUNTINU2 


77 R ) 


RETURN 
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ENTRY FLEX7 
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SUBROUTINE OECOMP 






FORMULATE UPPER AND LOWER MATRICES 


i? 


16 

17 


14 



UH1«N-1 
)0 If K*i#llMl 
U I G » % • * 

j I Zt-Ad'j ( J*. (IP.KI I • SCALES IIP > 
IF (sIZt-HlG) 

ONTlKUc 

(CIO) 1^.1*., li 
ALL SINOUJ 
0 TU . 7 
IF (IOXPIV-K) lOtibtlO 
J*XPSOO 

ip s <K) - iPi c inx^iv) 

1P$< IUXPIV) *J 
K.P: IPS (K) 

PIV0T=UL (<P,K) 

KP !*<♦ 1 
DO 16 I 3 KP 1 1 K 

IfiiiuEiU,V|/PIVCT 

UL ( IP, K)s-t.M 
DO Js<P*,N 

UL ( IP, J) - JL <IP,J>*L«*UL (KP, J) 
CON T iNUt 
CJNflNUt 
KP* IPS ( Nl 

IF (UUKP.IO) 19,U,1S 
CALL SXN»U) 







DETERMINE q THROUGH BACK SUBSTITUTION 
CALLED FROM FLEX3 

8iaa x ?js uti,i * wi ^ bil - ,f * u4) ' ips(<fc) 


X(l)>(m)/UL (1, 1) 
RETURN 


N*NN 

npi*n*„ 

IP«IPS(1) 
X(i)*B(IP) 
DO \ I*2.N 
IPslPS(I) 
iii* I- 1 
SUH«C.L 
00 1 J=1,IM 
SU M*bUM ♦UL ( 
X<I)=B(IP>- 


;b 


J) *X( J> 


IP* IPS ( N) 

X(N)*X (NI/UL IIP. N) 

JO A ItiACK* <? * N 
I *NPl- I BACK 

I GOES IN*1>.....,1 
IP*IPSII» 

IP1*X*1 
SOM-O.u 
OJ J J*IP«.(N 
iUfisSUM^Ut IIP. J) # X(J> 
X(I)*(X (I)-J>UM)/ULCIP.n 


RETURN 


END 










SUBROUTINE SING 


PRINT DIAGNOSTICS AND TERMINATE PROGRAM IF 
COEFFICIENT MATRIX IS ILL-CONDITIONED 
CALLED FROM DECOMP 


11 FORMAT (5-M.MATRI* WITH ZERO *Gw In DECOMPOSE. 

1Z FORMAT ( 54H.S IN GULAk HAT*!* IN DECOMPOSE. ZERO Jl V/ 1 u£ I 
NOUT = 6 

N0UT*STA,40ARC OUTPUT UNIT 
SO TO (lf-)flHHY 

1 WRITE (NOUT f ll) 

G J TU 1. 

c WRITE ( NOUT , ihl ) 

1J CALL EX£«R(u> 


i. 


RETURN 


END 


) 

N SOLVE. ) 






6. EXAMPLES 


Inis section provides two examples illustrating the modified TOLA computer 
program input and results. It is Intended to show actual program operation with 
emphasis placed on properly interpreting and incorporating flexible body data. 

Each example consists of a brief explanation with a listing of all input data and 
sample output given in the appendix section. Input data for both cases were 
supplied by the NASA Langley Research Center. 

b.l Rigid Body Example - This case demonstrates how to exercise the modified 
TOLA computer program without including the effects of flexibility. All the 
data defined in Reference 1 for a rigid body case are required. As can be seen 
in the input data listing of Appendix D, setting the indicator INDFLX to zero is 
the only flexible body data required when running a rigid body case. 

6.2 Flexible Body Example - This case demonstrates how to incorporate the 
effects of flexibility in a takeoff or landing analysis through the use of the 
flexible body option. All modal data required by the option was supplied by 
NASA and are shown in Figure 6*1. These data consist of a modal frequency, 
generalized mass, and modal deflections for sixteen free-free normal modes. 

Several observations can be made that help in interpreting program input 
and results. Only modal deflections in the vertical (Z) direction are given, 
consequently, there is no fl Jble body response in the X and Y direction. In 
addition, the mode shapes defined by the deflections are all symmetric from wing 
tip to wing tip. This results in a symmetric landing (simultaneous main gear 
touchdown) since all the rigid body rigid body data are also symmetric. 

The first four modes shown in Figure 6-1 were used to represent airframe 
elasticity. Referring to the input data listing in Appendix E, the flexible body 
option indicator is set equal to one. Each modal frequency and generalized mass 
are placed in airays GFREQ and GMASS1 respectively. The vertical deflections 
for each landing gear attach point are in SZMOD. Since there are no other land- 
ing gear data, SXMOD and SY! D are not input. Modal data for the aerodynamic 
reference point are contained in ARMODE. Aerodynamic weighting factors were 
calculated using the procedure outlined in Appendix B assuming an elliptical 
spanwise lift distribution over the aircraft’s wing. These factors are in array 
PF. Engine attach point modal data in the X direction are assumed zero; there- 
force, TXMODE is not input. Flexible body responses are output for four points 
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MODE 

NUMBER 

MODAL 

FREQ 

HZ 

MODAL 

MASS 

SLUGS 

NORMALIZED MODAL DATA - POSITIV 

E DOWN 

PILOT 

STA. 

NOSE 

CEAR 

AERO 

DEF 

AERO 

SLOPE 

MAIN 

GEARS 

ENGINE 

TAIL 

n 

2.099 

66.6617 

+ .1970 

+ .0800 

-.1140 

-4.239E-4 

-.1000 

-.0400 

+ .2030 

n 

2.628 

79.4557 

-.0385 

-.0200 

-.0414 

3.643E-4 

-.0042 

+ .1885 

-.2440 


4.784 

70.8341 

+ .0035 

-.1530 

+ .0405 

-6.03E-4 

+ .1393 

+ .1380 

-.1072 


6.907 

18.1131 

+ .0035 

-.0650 

+ .0644 

-3.034E-5 

+ .0112 

-.0510 

-.1250 


7.671 

20.0656 

+ .0254 

+.0400 

-.0342 

-5.653E-5 

-.0087 

+.0111 

+ .1998 


9.728 

99.7316 

+ .3028 

+.1850 

-.0054 

-1.351E-1 

+.1200 

+.0559 

-.4409 

■I 

11.797 

70.4027 

-.1673 

-.0100 

-.1258 

3.716E-4 

+.1050 

+.0588 

-.0165 

8 

13.878 

31.6212 

-.1157 

+.0500 

-.0323 

-9.602E-4 

-.0100 

+.0350 

-.2167 

9 

15.552 

40.4199 

+ .0494 

-.0300 

-.0036 

7.309E-4 

+.0500 

+.1025 

+.2985 

10 

17.638 

12.1885 

B 

+.0050 

-.0044 

8.596E-7 

+.0500 

+.0100 

+.0982 

11 

20.019 

27.2611 

+.0370 


-.0814 

5.78E-4 

-.0870 

-.0200 

-.3728 

12 

21.099 

25.7565 

+.0181 

-.0350 

-.0653 

2.801E-4 

+.0200 

+.0075 

-.0837 

13 

23.396 

37.8456 

+.0135 

-.0500 

+.0085 

1.617E-4 


+.0400 

-.1269 

14 

23.969 

39.6848 

-.0180 

•t .0400 

-.0009 

-1.503E-4 

+.0350 

+.0250 

-.2163 

15 

25.637 

29.5837 

-.0072 

+.0150 

+.0174 

-1.417E-4 

-.1300 

-.0300 

+.2243 

16 

25.694 

8.2589 

-.0023 

+.0075 

+.0044 

-4.213E-5 

-.0320 

+.0050 

+.0670 


PILOT STATION X - 42.6667 ENGINES X - -5.4722 

NOSE GEAR X - 35.08333 Y - tl4.l667 

MAIN GEARS X - -2.83867 TAIL X - -32.333 

Y - ±8.3333 
2 - 0.509583 


FIGURE 6-1 FLEXIBLE BODY DATA 
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on the aircraft, the pilot station, nose gear, right main gear, and tail* Modal 
data for these points are in OUTMOD and, their position vectors are defined in 
R01S. 

Sample output for this run follows the input listing* 
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APPENDIX A 

PROGRAM LISTING - TOLA COMPUTER PROGRAM 
WITH FLEXIBLE BODY OPTION 


A-l 




o 


c 


i 


c 



J»#->LAT IfJL 

MIA ( I SHUT .0'jTPUT, TAPES* INPUT, TAPE t* OUTPUT , 
tTAP;l j, TAPrl*, TAPE>1| 

COMMON/ lAjOlP/ IA0LL ?«.,) 

C0MHON/4E Ao./OMl (obi .J9C.INIU 
CALL FTMlMl,g» OJHHTI 

siihuji 
jta 

CALL CAE 
oJ TO ; 

CNU 

jJi«UUTXN£ .*£ 

<.*CFU TIVE P»OU»A« 

'NtMUIll 


JoUlINe INITIALIZATION 


JIHLNSIO* IN 
logical 
logical 
COMMON 
JMMON 


!’i»#A*c 

_ iT » mCM . 
/,ToH T/ 

AMf It w 


WS^fp 

SI Sm.M 


S<IPUP 
• TAOSTP 
.T 


,T ImInT 


• UM1UI 


»h 4 

Mi lt« * & MA l> 4 , 

MElfcRl, JM/ii ) .PEL**- ’ . ON J | 7 I » A InCR$ I 4) , OMmI 4 b) , T I M£ R, OH 3 I fcb I , 
A mai m »i«g I tOtCRESI ** 

A I » i>LL TS 


■ " ” I • ' A • ' A | Wb W*Ma # « 

Jllj c At'OLLTS .ONI* I 

OLTMitULTM,; # PL IN i, l' M* M 181 'CPSl^ON*, 

02*4 U PS 3 

tps/ .wh:g tcPS-4 

3Mi«<in,noc7F,ONZMum, 

MOAT'S {u\\ jT,OHjSVJ^i» , IwoSUJjMJA? 

common /OI^CGN/ 


k), 

b), OLHl 


• ON IS I 4), 


.OHZZ 

:LS!? 

• ON JZ 


121 .EP 
»um; 


• uM«. . 

2) t INJ^TP 

, I NPVPC 

• uriwb ( 

|OHbO ( 


»IIMV> I J ) t T 


iam :Ih°! tf :» 

OM4, | 9). 


3 ) tOMOPP 
MP 77 F 


*•) 


:8S« 


*: *T LlZ » T L 1 J ,TMAI • OH 

I IT brt ( bl.STGVARi ZI.IiNSS ( 13), 

).NiT-uT .Ann imi , iL»6Mhz (zis), alPoes.omsi Till)* 

l t • . • I II 'IU i • .. u k 


INOiKP 
uMh. < 
iiMh J 
N i T 4 U £ 

KL 7/1 .nit.® i < 

ON Si (b j j i ION # IIn* ^ J ■„ o I , T I HE , 

tl . c “* 

PPL 

oho; urr » 

IN ILO.iiNl. C U1 I ,U0Mi:.6M> 

Cjmmon/T* uPC/ k :i) pm* li;. i 
C JNMON/t*. AOl/AOul^ >MT1»TINC1* ALPOOt,OUHHl(SI 
COMMON/ L*/ iph »(/) 

C'JMMOf./AlJTjC/I JMbl 4 , I 
COMMON/ A«J f»' PL/ IhMSIN. I 
yONMj-i/L .>011,/ 10M ,| i*. ) 

COMMON/ FLAUP/ I Nilfe.il 

CO 1H0N/ AjT SAL/ALPjm l • (jltSP • 0UNM3 ( * I 

COMNON/HTCuM/mT .HI * ,HT2 

CdMMOS/CO U ML/ l Son! -.C0NTP1, ICONTZ, IC0NT3 

CO.ICAL »mT »«T t , ,*1 j 

tj o I val cnCl ilvTMn . jK i pup i 

04 14 STCOIw »TT COM4, riLANK/4HTMAl, SH STAGE # SH 
FORMAT CM.t :SI,;.AI,/(1H ,«Sl t l9Abl) 
format (11. • lb <,5 m j T0P| 

FORMAT I; ! . • Jbl • 1MHSTAGE DATA 

fjdmat um m ,ig«,uh cu&e 

liSU 


b3 1 • PC M 

• ft lr 


C 30 I • 


11271, 


format UM.ilSl. SHSTOP- Af>| 


ON 


ERR3KI 
’•t 2A o I 


• •••••••••••• •••••• ••••••••••• ••••••••••• • 


0f'pT l PAG£ is 
* P0 °R quality 


A-2 


4 * 

Jb 

litf 

2 . 

21 

21 

2 b 


I 

JtC 4l •> I 


{!•«'!” 

1(1 *6tAM< 

IlMUlAhK 

IMUllf" 

uo 2 i 1 « .»■> J 
IJHSdl • . 

•J J fl.l'ltlb 

I 3 ^b«I) «. 

citt 

CALL V*’C’»i 

Sitt Si?;* 

^pSllc. 

*»-T J., HUt. 
hi I iOt* • 

I < I'iU > 1 

I 4i • A T M - 1 

i VaIm* 1 ,£ 0 

J-L r r .*. 1 
P<]NT*.. 

UtTHi*. 4 • 4 i 
XT 

tlHl«« J 4 . 

OLHiH. 

•;p 

-p v -» s :• 

L P >■»* 1 . 

c»»*: /* x . 

£►*0 1 Jm i . 
tPuS«:. 

li'ibfc A , 

»PTt F 

VtltKi • 

•'cU'-t « .-.*,.-5 

a UN** « . ..; 

AH«« R* 1 -- - f . 

T t M I <T * AhUlP 

(•'iff*}*'.? b 

- J » S iliHJUTlMt IN1TULIZA riON 
j 4 i 4 «. f«u.. 
al PUO * * 4 • 

A>jr . - ;acs subroutines initialization 

AlPJ-U**. 

QJt « 

IJONl <<« i 

OV^PL At JuLTOIA » 1». » 6HR£CALl) 



A- 3 




O 

c 

c 

J02 
JO J 

JwD 

c 

41J 

jo r 

^412 

%u 

n 


i.1KCls 

if I?JhInT .11. 

TC ! 

AjTo SJHJUtlML 
H?« JtLfS 

Hf -•Ht 

Hi 5 Ml T 
SaT <?* . f *'jt • 

jilif jnt 

}M*I 

In « >n#L 7 f . *T . 

CALI LiN. , ?i»> 

•Mitt (9.11 IHCHI II . I *1 . JU I 
If I IMOvPJ.cQ.. H.O TO J» I 
IC DM < *4 

CALL OVr 'lAVtfclTOL« t .| . .hMHtCALU 
If I INu!»r.cO..IOO 10 1 <h 

cokth* 2 

Ad (JtfL-’LA V ULKiLA.I.. .MNlLALLI 
*■ I INUAl MU.ki»u TO 3.4 
(C'lMt H ' J 

CALL «;Wl^lAY (4LI0LA, 1, J.fcHKLCALU 
jC JNT «» » 

CALL U 2l <L A V < *• L T 'JL •» i 1 • )*C»HRLCALLI 
|f t I N-IL - «A . L>(#J To U*> 
iCONT<*»*» 

CALL OVl-L-Y (>.IT0LA ,1, . ,6' iCALU 


AHlNcH) TIHINT ■ AH INC A 

^Initialization 


-HA <►« 


»ur* . t<ul. 


CALL VPCC 
P)St 
CALL 

call 

«< A L L 
CALL 
CALL 


F OP SUBPHOGPAHS 


0 A I A INITIALIZATION 

Lu-.*»-<. 

ON ft 

JW* 

SU>L r »P 
CALL OPT. 

If < lNjAUf.tU.. >GO TO J„7 

ttfE’Si! -LAY l-LT0LA # 2 t . # 6HRLCALL> 
i<IPUP*.f ALSt. 

f i 2 -.A* 0 tLr^tf- i.c-b 

TlHLMtMH|*4T ♦!•:. t-b 
tXtCUUVr PHOu-i AH 


T ♦OtL Tb 
ITPJ .LT. T H A X ) r,0 TO 4iJ 


T Pi) ■ 

If IT 

jilL fS • T'lA x -T 
H # * -JlLT'j 
IN n * . T- Jl . 

CmLL HIHINIHIHI 
IF IHlH.fr. .. >00 TO 414 

?f iiNoit^LO.- >00 TO 417 
IFItMJlC'J TO 417 


A-4 


S??SS 


r, 


*»i*. 


% if 

bib 

I 

: 

'til 

924 

929 

9J7 

: |Ti 


If IlMAuf.tO • k I 00 10 41b 
[CONI «•$ 


J TO 41 j 

F ( iNOAUT.tO. . >GU TO 41b 
CON? "■ 1 

ALL OVC-LAVI* LT0LA (I .',,,6MN£CAIL) 
J Tu +i>, 

m.?y v '• K) fc NO* .F AL St • 

,0 ki ' 

F ( INO>fl..»a . . Io0 TO hit 
ALL JPt • 

lH?k«T ♦H<lh1- i.t-4 
f ( f • L T , ? I h( A ) oO TO 416 
IH^A.T* luL TS-l.t-c 
f I IhQAUT ■ tO • to 100 10 416 

ALL 0Vt<lAV<i.LT0LA f 2 v j'bHktCAlO 
*. TO 

•tQt.160 TO 416 

jos' 

olc^LAY(4LTOLA, J,..GHktCALU 
r UNO* f l . .CO. „) 00 TO 74.4 

If I -40 I Go TO 74 J 

If CI4UST. .to. it GO TO 412 

••••••••••••a 

iNjjTO * j 
CALL LlN.i (21 

W-4UL (o,i) (jTGVAk(I), 1*1,2) 

nj oi'j jj*i,4 

AiuC'''* I JJI *bLAM 
JtC®ti( JJ) *bLANK 
Tf i jNO*fr • 


tO.. ) GO TO 917 


(HOSTF * w 

INl_ 

4-Mft (h,l.) STCOHJ 


;ALL LlNtS (2) 
GO TO t 44 
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ftf 


S3 


*0 


36 


10 

!o 


■ AMO 


sell? M*. 

J« J*i 

If ii: .to. m oo to <: 

If (J.GT.IMAXI McTU*N 

IHIs 


(J) 

2CjJ 


OllM 
II AtriiMN 


m 


g2*]2»« 

$0 TO i SI W • SC 1 > • (C 
t HO 

SJ'.lMOUllNt LlUcSILCOUNTl 

LI MIS ACCOUNTING MO . . ... 

CO iHOn /GlMCGH/uilbiii l f LONG» 02(1*27 I • 03 1 20 GO I 

LJ’JI.»luN'.»lC 

IF ILONO.Lc.S 
Call ulF 

LONGULOUNl 
UNCTION A > I M X I 


i 

EXT COMAL ACOS 
AjiN>;. «7, 74bJ- 
Tupn 


acosiii 


i.J GO TO 1J0 
-w9l 


Me lUPN 

IF lAHGT/l.f.T, 7.«.V.9AwGE 

AC0S*1. 9/«FH3 

ACflJMM 

IF (x • N _ • 1.1 oO TO <*0 
ACOS»„. 

Mt TU*N 

IF (X .Nt. l-i. II GO TO 31 
AuO S= 3. 191992b 
Mi TUMN 
A* , . 

II 1 f*l 1 TAtf \. IGO TO IP 
SA*1. 

K2*1.-<2. # K1**2I 
GU TO 9 
SA 3 j . 

*2* «2. •*4»»cl-l. 

A=A*SA»i.»* <-(1-11-11 
X 1 3 X 4 

a: 


GO TO 9 w 


OF RANGE X *62.,. Al 


IOS*3. l*»l9926 # A 
Mu TURN 

i J 3 FjJhIt ! iljUritluHtHT OUT 
ACOS* 999 H* 99. 

RETURN 

EHJ 

• •• ••••••••••••«••«•• 

SINGLE P^tCISICN »OMT*AN AftC'ANGENT FUNCTION SUBROUT INt 
NOTE. n <0 A0G(JHt.rm MILL EXIT WITH Z£R O ANSWER 

logical note 
meal l 

OI ML NS 1 ON AA INI, AIL I .HIM # PNtGI 
UA T A I AA( II , I r / 

HIN IS AAI.I, MAX IS AA (Gl 
• . l«u<?oHy 1VE-8 . . IF*. i:o9<Jlc.*0» 

2 .27WW7 k2P.*i, . 1JA21 77cAE*9 

JATA (MI). I 3 1.91 / 

■N • .ML 19874 Ut*J* . 19 Sj 1L?*.’LL*w * 


. ‘>7M5l269£»w» 
/ 


• 1191 7S3S9L+ i» 
. 94 L 79 L 9 A 6 E- 1 , . 2 0 H 5 J 5 J 59 E - 1 / 
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OAT* (Phil), 1 • l,-» / 

• . G 1*1 llttiU ♦-. 

UiTi Ci* Cit C J. L / 

• B |;*?;r««4A»*l» . Jl%l»t2*9k*l 
IF Jr .t J. y » GO TO lb 
IF II ,E ). jit l 00 TO lb 
ionic * i < ill • t i » i 

ImuIC ‘ .1*01., AnwLE IS IN r.uAOHANT l 0« n 

* « 1/A 


.2 

. 21bbN9lJ6C^3, 
/ 


.1 S9t2(3t£C»l 


1/ A 

H l * AOSMl 

OJ lj I * 1,6 

If J/-AAUI .lt. :.ai 

i - sg-ih» 


GO TO ( 1 S • 12* 11» 11*11*11) » I 


11 f 

l 


j. l:\ 

P « poll) 

Mil - (1(11/12 
TO 13 


. .. _ ♦ A A I J I I 

SO TO 13 

12 2 « / *L 

J • - I 

f * I.* 

13 T • ?••? ♦ CJ - C2/ ( (2* # 2 1 ♦ Cl) 
ATAM2 • l/\ ♦ P 

IN AT A f. fc * >IGH(ATAU2, P) 

IS IT I .HOT. I NO IC ) PlTUPN 
IF (AtANi .GT. J.;i GO T ( 

A TAG. > l|AM( ♦ UNlPI 


TO 23 


lb 

lb 


*2 • 
PN 
- * • 
ATAN2 * 

«•; tjpn 


■*£ TU p N 


SI0NIP10V2. t> 

•Gc. y.l) GO TO 22 


17 ATAn: • f 

GO TC IN 

16 A T .* N i > H 
GO T*i H 
22 AT AN? ■ 3.„ 
p-ITU&N 

2 3 A I A N< * A T A II 2 - ONtPI 
■»£ TO*N 
£ NO 

5 JH POUT In: t wpCR (ICC T I 
GuNtPAL TAPU 


t • y • i 

OHc.PI 

PI0V2 


... .. . . Lt ENPOR ROUTINE 

COHHON /Oi-CCM/ ONISI , SW(bbll , I NOS Tt 
C A T A I ii t / •- m / 

1 ( 1 ) iTc * * 


OH 1 1 1 2 NN ) ,0H2(2wb6) 


iALL l IN-. , li) 
CALL ASHCHUOCT 
IF (I.Afl£ .tU. 


HHlTfc 
w l T 
-<I 


VI 


•^N 


(b»U NAM l 

I 

(o.2l 


i . (AMt ) 

I [ID GO TO 5 


•Miu 

FJPHAT ( 1NH '.TABLE t PVOH .Ah) 

FO--AT (.Jh.TAClc lPpOP/1H ,N7H. . .LOCATION OF TABLE NOT LISTCO IN 
1 jI^tcTOPy. . . ) 

TlIrN 

tMO 

SUBROUTINE. t*E*P(NUNI 

COHMOH/UIRCOH/OH 15) ,iM(6Nl), IllOSTE, 0NK12N4) t 0H2 (2i66) 
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|V 0 1n6n b .2q. 

tSticUiriJi 

NRITE tb.J> NU 
foPmAT Iiha,i* 


*1 RF.IU»N 
OUI 


TU»N 


r i 

J ja ROU T I Nt NOT LU <NO,NA 
N-OlME 


MM 

1*X # 12MSTOF NUHUCK Ul 


MSIUN 


Yi&iVtuj*”* 


NO 
N A 
V 

i , 
il 


lit 

ROUTINE 

OlM. OF LOOK-UP 


i 


l 


NUHHcRS of values of each 
TAtLtS OF EACH fi IN O&CER 
function VALUtS 
ARRAY OF ARGUMENTS 

e6ror T rcturn 

NO t4R04 
X ARRAY JO SMALL 
X AHRAY TO LAPCl 
ARRAY NOT ASCEN&ING OROER 


b 

$ 

10 

A 

12 

I A 

13 

I I 


-J< J I MANSION 1 Xtll.ZU) v NAI|l v KAIl) v NSmtMJ( 32) 

Ll* J 
lFsno-; 

00 J 1'l.lt 
L2 »L1*NAU I •l 
FINO»m. 

(13 •» J * l * * L 2 

IF IX(J) ,bf . XlJ-il) GO TO b 

fc*2 

RETURN 

IFir !Nu.N£*y.) GO TO «* 

\F f X A « Il-Xl J-ll ) O.A.N 

if u.gt.ld go to l * 

Ie« -I 

4- TURN 

F]Nn*l. 
n|« ii«j-2 
CONTZHUc 

If l5H*UUHi l U 

TURN 
iii* 


22 

23 


n 


.13,1*. 


N> I II-L2-1 

HR ■ *2 

1A I*1,«F,2 


»4 
*MR.C 


Uy-\y 


JO 

\l 

NPT * 

00 1 

HNs<** I J-ll 
IF IAN0<M. # HMI . tQ.OIGO TO 22 
N * N j < J I ♦ 1 
GO TO cl 
loNStJ) 

N» N-L 1 

L,*L l.N A I J» 

lZ* NPT • IN- 1 ) ♦ I 2 
NP t «np T *NA ( J I 


TABLE 



AU. 


3 i 


JMHM /(* («♦ 1> -» (H) » 


i » ♦IHJ f ^ • J > -NJ(<»J-in •PlH 


SMIifiMHii 

JF *Kf/*. 

■)0 Ji J«l,jF 
HJ ( J)*w Jl 2* J- 

N'-Jlj 
®tT0PN 
lnq 

$Utl*CUTlK- ATHS (MGCfFI 

AiHL^FMtm Calculation houtinc 
logical f v . r vln 

liii > ,4 ul2l* ci* i 1 J 1 t » • *« * li * * TO ui I , •< l ( u» • A< 2 m i , A* j t ill , 

C 3Hm6n /c! «ci *« / 

l u au>*! » AMJA7F .INQATH .OM.MiJf) 

2uHj(9:>» . w M0Aj .Omw ( «9) . T A FT H «0H*(6,T 

3'J9bl<Ub) ,0HF UJ*>AI 


.PA7FP 

.VSm 



OAT A (Pd< t» . 1*1,111 /: lift. iibSb,*?*. 7 3, 51. 179 .2. *155, 

Cl* 2 io»t i?. i A i -c.<i.6.9£-4, 

data (toil) ,1= 1, ;.»/‘jlA.b6 0, J 69.960,3 69. 98 8,50 8. 78 8, 
CC.A.loo,')*. 16fl...**.;ft6 v 4fcb.li6,tJ8b.ie8, 

CJSbb. 168 , 2 * 5 1 >. ibis/ 

JATA ( A k i ( i ) ,1 -.22 bbblt-.. y .. . 1 JA^bbt-b.i 

C*. l‘>9. t 4;4*Mfc-4, . 8ob2e9E-4, . 754 l 4 IE -4, 

- >/ 

OAf ktl*i 1 II , /-C. J9bi2 f J..11. J86 3. 4., -7. 59218, 

C , > * n i ?•• u * . , / . ^(4|Jt<*i6 > <A,bidJ.ik|Si^6l)'/ 

OAf AUK Jii» , I«; | U)/ w .,.i57b89€-J # o. , . 12o6b9E- J, 

Cvj • • c*'j i I * l * » i 5'»i/ 

OAf A A 1 1> • A «< » ,8UI ,U(2l,C (II,: (2) , 01 1 ) , Of 2 > / . 7595 11 , . 9JS787 , 

C.l7«lb4, .£7j9ht, 22, . « I8j.,2».,l4»./ 

IF (U*lijATM.t<).dl.nH, <H',C7F.GC.2.5tbM CO TO 47 C 
IF (tH.C7F.Lt CU 10 4bb 

T IP* . J.45*HI.C/F 
.(',P»fHH/(. . *T*P/bJSb7b6.l 
n>T J.*.T-< Jt. 

*••2 

IF IMGP.GT. i6 w - Jw.> GO TO 49 
IF IHGP.GT. 9 ww • *.> CO TO 49 


suEJOSi'*^* 


GO TO *« 


LATCH 

49 IF (HGH.LT .Ml C mi 

t5 T ri l o- 

y? (HGn!bf Jib! I) I GO TO 5* 


5b 
b 0 

c 


LATsI-. 

GO TO o. 

COOT iNOt 
TiPmHGH-H HLAT ) 
TNP2*; , • ( i a n •tup 


9 

9 
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if JI.Nt.l2tl GO TO 69 

EVEN*. I »U-. 

i.j rc r t 

iiirli* rhiiit) *iHp t 

41 f t L A V » • f *1P?* • I -4<2 I L » T I » 

R.<OAWHUO<iAVIMN»'2*»<-1.-AK}'LAY)) 

03 TU 8j 

TiP J«E xP(-mK3 C L A Y » • THP| 

PA77F «PdlLAt 1* MPJ 
*MOAS*NHUHU.AtlMHP J 
IF CHGT9. ) GO (0 B k , 
sta77*«S;ini iTA7rai 

A iV J A 7 F tt tllblsdl-b* I TA77R»STA7’R/f t T A 7 7**1 96 . 721 • RMO AS 1 1 

R£TU*M 

VS77F 

TAyj^il^fP* <AC«|-btH»*ATAN<HOP-CtH»/OIH»| I 

«£ T UF U 

PA77P*HH t .1 
A *v*7Ft i.*?«.32a«t-<» 
pm(jas*kh5h < 1 1 
Rt TvJA‘1 
Y i 7 7F * « • 

T A 7 /P» # , 

PA77P*. . 

AUIIA7F* 0 • 

HMUAS * ■ . 

Rt TURN 
£ND 

SUnROUTIlt IM/WJ (A, il. iNOtRl _ _ 

A 4 * i HATkII INVERSION ROUTINE 
OINENSION A 13. II ,>H !, U 
0tltl>*At2.2>*A(J.jl-AI2tJ)*A<3«2) 

0* J 11* i l*A ( I* 1 I 

H(l,cl s A(i,c»*A<i,J|-All,21*A(3#3l 
J*J*'jI ‘Alc.il 

0(:,3l«Al..cl*AC2,3l-A(2,II*All # 3l 
0*0* ( ( . . j I • A 13,1 » 

If (ALSigi .i t .i .t-i« ir.o to m 
9 ( c , 1 1 * A ( J, ll*A(2.wl~A( !,3)*A(<',i) 

«t t , 2 I = A a , i I • A I i . J I - A I J , 1 1 • A 1 1 , 3 1 
n 1 1 ,3 I « A U, l I • A I u! I - A J I ] , , 1 1 • A S 

di j,|i = Aii,ii*A(i,ti-Au f r AO # ii 

tMJ,3MA(i; 1I*A|^})-A(U2 M2.il 

oj ;7 j=i,j 

0(J 17 1*1, j 

ril I , Jl = C f ! , Jt/U 

lN0tP«i 

r: Town 

I"0fep*2 

RETURN 

cUO 

SJlROUi INC HULlJl ( A , II • C I 

A HA T p I A MULTIPLICATION ROUTINE 
OlHtNSiOK A (3, 31 .01 Jl .CC3I 
OJ 1 1=1,3 
cm*-. 

00 A J«1.J * 


LICATION ROUTINE 
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r?. a 

v &vA — XL** 


*^1 


c 


& 


c 


l 


c 


H 


It 


3 

•* 


l 


ll 

lb 


C 


sjMofc 8 ,l,#i 1 *• 

lUO 

*•<»•* OUflHc. HULliJtA 
A h|?wI* r 
1 1 o k a ( jf j) ,»n 


jn-ii 

W.W: 


iiii 


Ml 

l.i 

V • 




ON ROUTINE 


-Kill. 

MM 


j>» a< i,m*u<k,ji 


SumBOUI I**i 


TEMPOS IA.IJI 
J I l NAIOI* 


UlNcNilOK A I J, j| ,H« 3 , A» 

-A.j 


TRANSPOSE ROUTINE 


\l 

1J«1 


) ) 

J ) u-ti j 

3 Hii'r ltj,n 

tNrt 

5 I HiU! I 1 *. M)HC(N ( L3CT t NVl f NI2 t NIJ ( NI4i v XUR6|I^AR« t 
•*4ARr.,H,A}o, A> 

r A r. C C ROUTINE 

CJNHON/T A »j 1 MU'IU <11 

JN » A Ifcl.nAUi 

<iN.*l»R»*.N«N ARGUMENT ERCCEQS ICWER LIMIT OF TA«L(I 

an argument eacelos upper iImJt of taRei 

I N jfc Pt NUL NT VARIABLES NOT In ASCENDING OR 


►J-HAl 
A’ 0 '»NAI 
TV HAT 


i ;N. • iVAfN^HAN 

< 1 H. , 15 A, 

i» I ll ii H *» 


A 4 H 


OCR) 


AAUMA^ARO 
«A< J» **JA-U 
14 (lit s« 4 AtO 
NAI |) *l«<i 
NA < < I « iil 
MAI 31 * .A I 
Ml IdlitM 
NA T ■»!*; 

If IS-O 5 . «• . S 
MAT *NAI *NA l i f 

go n o 

'| 4 T*nAT«sA (2 l»NM 3 ) 

GO TO *, 

lA f * f.A I (dt *n 4 ( J ) ♦NAtO 
U.HAT.LOIT 

CiLL NUK JIN,»lA.TAliL£(L 0 CTl ( TA 9 '.C (1 1 1 . A A .A , IERROR) 
If (ItHR'H. tU. wl TURN 
CALL STFLI.. 1 . 0 UN) 

CALL l*»UR< LOCI) 

CALL ll’«. > ( * ) 

IF lltKROR-1) r « !%• X!» 
mtU is.uf 
R£ f U*N 
w* l T t luiltl 
RETURN 
WRITE ( Of lo I 
K. f URN 


i in 

iJJROUf 1 M» 


' TIJ(*,LOCT,t» 

No OIHEnSIONAL TAOlE .OOK-UP ROUTINE 

iuN/cm 


C JWNON/ TA JU 
t lJlWAL-.NOt <N,Z » 
LOClHi^LOCT-i 


2*6 ILOCT) 
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3M.lE4«V«i 

ZMCUI-II l.b.? 

JriiV 

IF IJ.GI . <LUCTM|t2llG0 TO «• 

^!j|t L e^loi«kOCvi 

?•£ (j-iiMC i jmi-ci j-in»iM-cij-*»»/fcu»-cij-ji» 

Wlfcii 

N-. TURN 

SUMOUflNt TFFS1 

ENtlH. THRUST 

Input wtOUiRiO ifhuh oircomi 

ACT F/F, ANACM, AH4,i. AHASS1, AHAj/Si AHlFFF. 

A 4 T F7F * iNuY if. TAU*»*i Tm/*', T2I1/P, IN, N<*J 

iti«m« ifi. i • limit ?m>i 

•jibU^>i.iNOfr» . dnMvHjI,! fcufP.OH* (:» , ftglP.UHicii . 
’OHliU.tS) 


Sm* 


MJP.HIP OF iH&lNtS 
M^OTTLt Pu'jIIION 

- i 4C l*E PUS if j Ate »OW . . 

- tNcIlL PU5ITIAM ION I C» 

- LNUIkt PITCH HOHLWT FOR 

- ENGlt'C Y A » lONt NT FOR I 

- ACTUAL tMGlNf TmROUST F( 


N F ON 


IN 
Ml 
YN4 
/N I 
HI . 

'.'Ill 

TINE NS ION S « 2 > 

C jHNOK/ f UUH/OF* ( 3w C I • T (91 .BH2IJ01I 
C JHHON/ T AdyP C/ L 0Cl« I , OUHNlll.il 
A C N.Nf (SI .NT 1*1 
DATA FNli/oH TFFS/ * 
C3lll.SI2l/ZNHT,2 HMT / 

initialization before uata he ao in 
taofp*.. 

Tf HFPt^ . 

TZHfP.fc . 

alt zff« j« 

ANT MF*,, 

ANW7F... 

At T'JHN 

TNNUST CONPUTATION SFCTION 

ENTRY TFFiA 
T «1fP«. • 

T Y R FP* . • 

TZU 7P« . • 

ALT 7ZF • . • 

AN T FFF * y « 

A-,T FFF-l. 

IF I INOTFF.cU.wIRETUHN 


[Nfc 


tNE 
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nU'iil.CCC 111 ,1U«N, IU0«. OU.OU.Nl II , AMACm, 

iliwwl' 

If dfpa I f II 

AlT/?F*AMtF fMMflfl 

an! m • an! 7>r*Nr til 

CjMMNUt 

R£TU*.'. 

INIUII MINI 

HUS.""* 

CJHPUTk AnO PRINT coots 

fcijTsv m.i 

In IMOI ff .*,g.,MtTunM 

CALL itrtl J • 1 . F H f 1 > 
call muon'ii 
4<1U»N 

Tint HlSVllMV PRINT 

5? 


TrfY T FF jb 


i lUOfFF.eO.. IN iTIIRn 

V l.FMf II 

m ,amtf if ,uu«ou.ou.ou.ou.ou> 


■U i I * C • w I 1 • liUI 

iiiuiis-lihluMii} 


CALL STFtla 

|:t t lir* 

*•< 

F^mm 
RETURN 


UPOAVl XmucRATION 

£NI»V TFFif 
Rt turn 


hi 

( 1 L* «$Clw • 8 I I 


uinouiin; ?ri iaiTc.TNi 


tuft 

Sc A nCN THROUGH UANuti OF N TO M 40 Tnt N 
Th-T 1 0 w * *. •» H CM 0 h m*?m thrust ic ano CURRENT 
HACn NOH'l.^ 

I.IPUi - 
OUTu! - 


»c 

TN 


IlMAUyll ANJ NACH (CURRENT AH ACM NO.I 
I THROiTLL ScTTINGI 


CONHON/0 IRCOH/ftNi t*2N| jALTFFF |QH2 (to* . A MACH. OH 3 I? I, 

• A fl A » S f AHAiji • AH4SZS • Uh 4 (51 , AN? //F , 0H5 I ;il , AnT/ fF . 
•im '»UOI .(llfltFF .WMF (JLOl.m'FP.lM* (? I ,TY0?P f OMR(l| , 


• f i*f "i 

•AHASFSUifAMSS 
•Jii‘lli.081 


COMMON/ T 4*10 IN/Klt 

COMMON/ T- ISNC/lOLU I .UUMM1 (106) 


IF | INOTFf.Nt. 
Tn* .. 


Rt Ty«N 
LOG T *LUC 1 1 1 * 

jo n i * . . i t 


i. 


ICO TO 2h 

M 
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O 


21 

2* 

22 


ir 

21 

29 


c 

c 


JO 


c 


o 


cUP^Hj&Oli.lOCIl^f !|^M|XIUX 9 OUtOUtCUI 9 AMACN f OUtOUf INII 

jMYc.'ol. TM£|oS TO 19 

Vt 4 »c i TNi*?C»MC 

•i turn 

If <i 


(K)-CIK-lll /I VH1-TH2I 


fWilliPAI* 


ft£ TORN 

Ir itc. 

!i« 1 


uT.ThZIGO TO 19 


f U4M 

If (GUI .GT .2.IGO TO 29 
IF 1 TC.uT.TnJiGO TO 19 
00 TO i% 

* 9 » z • 

■iiUJHh 
1HI« TM2 
CO'UlNUt 
RtTUNN 


I** 


U940UTI* TJ F ,HT»««UT .TNRUSTI 


C)1»Ult TMkUST A* A FUNCTION jf LU*RtN! HACH NO. , 

ANO OOIGlATtO ThvuTTLl tCTTIMG 

Input - Thru Tl TmnOTTU Sitting* 

Input - AhaCmjhaCm no. FROH oipconi 
Output - TMKUST 

C01H0N/01-CUN/U*nil2f I , ALT TTf , AN ACM. 0Hl(i >, 

•iNAiS, AHAV. i.AHAb/i. JNWm .Afltrrr.lJHSliJI.ANT w , 
•UN 61995 I# p.uTrf .OH? |2 9 M.tEo;P,0n| < 2> . TVH{P,0H9(2» I 

:i5i‘ s?i»st : i2u/ ! »r : utstcSSHl X: *1 :«at if saysI f 

•UH1*I2* 6«» 

C JHH0N/ TArtbNC/lOCCk I »0UHN1 ticai 
in inut rr .ht.t igu ro j; 

THRUST*;. 

TURN 

call HIHJ(^.LOCU) , ITl.N.ITiCK.OU, OU, THRSLT , AHACM, 

COUjOU, THRUST) 

«t TURN 

t*lU 

SueaouTUt vrr.si 

ViNlT.lt PHYSICAL CHARACTERISTICS 
0 I HL MS I ON A (9) 

CUNHON / JI - CON / 

.9(1 1291 


9a i 


2AI «<US 
3 )*1 

**ii ? /ns 
*all j >r 
salt Jor 
7 AMASS 
BA-nrr 
9JACGF 


. A1*<S1 
. Air to., 

. Al;/jl 

,»ChJO» 

. AIZ JU» 
.0*7*25) 

• 0N8 < IB?) 
.0*9 l5» 


• A 1 < V «S 
.A IYYS1 

t 0 H ) C 05 I 

• 0M9UI 
#UHb( 7) 


»1?5SI 


f ALK/bi 
,AfY2Sl 

ALNJOF 


• A I X/Sl 
»0H2 

•nufiin 






¥ 
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Ml”. 
HMttt 
WMo” 

! 


•Ej: 

i 0*1-1 Ji 


» INo WMC 
Johj h r*i 


;3«S r 

• OHi J(2|S) 

tout m 


\ipzu 


I HU* VS 


•CPS 22 

IKOJDP 

•INOKZS 


« W*" 

CC^On/TAI,! PL/UL'flN* in!) 1 •LOU i§> .1) 


in 


212 


l\\ 


33 $ 

3$3 


ui I), i - : • > /shbcckf.vmahiFf ,$H0i«iFr,5Hn2i»rf/, 
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In|UAlJ/A 1 ION AFHP OATA ft£AO IN 
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u S 1 1 1 * « 4 . 

Ot* 

Bll 


0 > 4 1 v v • j , 
if//*:. 


JS* j*v* w . 

*ii {*/*,. 

ALL JOF * J . 

alhjof 
ALNjGF * . . 

At VjLf * 

IF^^Nuih.EO. 4* 

IIUU4V>.Ni. ) 
•STlJrfN 

• • ••••••••• ••• •• 


i - 

r 


GO fO ..I L 


A I X /AG* : • 


VLHICLt PHYSICAL CHArfACrmSUCS SUBPPOGPAH SCOT ION 
MTSV VPC.t 


IF IINOT . J. 10. .1 GO *0 4S*i 
CALC H junaIS.LOCC 1) .XCGftF) 
CALL TLU I Ah A jS.LOCIZ) f A I XX US > 
call il iHAHAJ-i,, LCCC 31 I A ITVHSI 
Call Huc-hu* ,loCi O ,a i//usi 
XCG'jF * *CG )» ♦'.P.iU 
AlXXPSt AlX*US*Ll>iiN 
AlVV|*S*AiVVUS«tPs!. 

A 1 // 0 ;,: Aj//‘ 

IF ( XML </ j . 'l . . I GO TO JH 
CALL TLUtAHfc*S,L0Cl5> ,A tXVOS) 
CALL T L U ( A ■' A ■ L CC ( ft • A I V / HS ) 

a I * tos* Aixvub*tHS 2 c 


Alvm*AlV 2 ti*»&,PS/i* 

IF (INOAVn.n*. # | GO TO 353 
CALL TlUIAHA* >,LOC(f» ,AlttlV 
Af AZBS* A! «/(•*- *lP>2a 


IS I 


IF ( tN J J J**. LI.. .» GO TO *51 
CALL TLUKt.OI » ,LOCM» .ALVJliF | 
QALL TlUUUGuF .Lor IS) .ALZJLFI 
CALL UUlHCttF ,LCCl 1,1, ALLJUFI 
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IT 


99 
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f tpjuluf . tO. .) GO 1 0 997 

ill !i6?n S i|. 

ihu; 


:all 

ah, 


f LU( 

ILL UUIIlHUilOC 
f 1 1 NDX/ i * l«t . W I 0 
ILL fLUlT lHlf.tLCC 
ALL fLUlUHtSfLCC 


. L or ( 1 u t HS1 
• Lur.i 19»,USI 


Mlb,L 

Mk , I) 


IP < IN'IXV ».Mt .bl I 

Call tlu itimi s . l o< 
dxcgf.xc.jf -xfC«F 

U l 
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•BM 


U) 
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;iix2i 
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w) RETURN 


CALL STFLI 
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CALL :>lOV.»-<U,<CCRF # AyEFF»OlRFF*Q2RFF l OU l UU,OU.OU) 
RETURN 
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c 
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swv:« 

TlHt MISTILY PRINT 
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• •••••••* ••••*•••• 
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RETURN 
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COMNU 
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•OCLQU 
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UuAJA 
*• )A44 
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NOASb 
N.)Ab2 
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NO 4 it. 
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H04 w 7 
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NO 491 
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.4041,3 
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*04 n 
HO A . . 
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olooiDP •jrmm) , 
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bl ( 7 7P • OH # ) | 7 ) , 

7PI77P f UMv t 1 13) #T 377 P ! im5l(42d) ,1 A? t QM57 C 3) . 

•AC PHDS. Ac PM 01, ► 3(94) , UtLQN# JH94 ( 71 , 

COHMOf4/4(jT , ,AC/ALP')Pl, 'H)CSP*CLR‘<, ALPOt' ' 
CJHHO 4/lu/F Hh, FtM,f 2H,LM t MH,NN.i»>SL0<. 
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# OELF’O 

JojHFF 
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NJAll 
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NJ4 4 1 
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IT C ( 9 j I 
ur (9 7) 
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s US Ittl : Hfc l*?l :EHsftbn s I f 8 IVH :«SftSai: IIS f MIsHHEU • 
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• ( f T( Ml < ’ A l 0 1 • ITC 174} .CNtOULI, J }g | • *70(761 * CM2 BOM 1 » 


'71.012* T f ITC I76T.CN.WX ).(T 
1C Y • C. tA I • I UYNPl, OVNPP T 

UlO^Au/.- 17Vi.(2$/ 


utr 


•11.1771, ««; •* I , (TO I7rt> .CN.WX ) , I T C ( 791 • CA V Am) 

E J JIvAl •* 

3a r a 

DATA 

•MJCX|C/*'T 'jlC 1 * bHC A VAN /, 
if I < (’,1*1, J ) / |nc A » i Hf. N» IMC v/t 
2IJI h . t *1, JT/ZMCl.iMCH. IMCNN7 
Fjwiaf |»H. ,19X,2bMtNlT lAt PRINT OUT F OP SAC1I 
AlA 77P«y. 

AlA 77fz 
A*A 77F = ,. 

A.4A/7F r„. 

A A 7 7 P* y • 
f A 7 7P* , . 

Re T'JRI 


wk: 


3 


I I’UiA • I 

(InuaS: 


£0. .1 RETURN 

) (iO TO I2b7 
u I G(J TO 1 1* 7 J 


If IVS77F. IE 
CA *CAl1UU 
Cm *Cn;hnj 
Cr •Cvmnu 

CRHsCLMNU 
Cl *CH:«NJ 
CY 'tsC'lt Mf. J 

lb.il TlPIl I * t l* ,V»CY*LPSl» 

T-1PI2 » - JY 4P»**Ar.£FF 

TA 7 7Pr 1 M-M. ) • f NP (21 

ALA 7 7F - ((.•*!« 7*C RK«FPS8 1 *TMP (21 *02RFF 
A 4 A 17 f- ( .^U'CY^tP, 12) M HP I 21 »02RFF 
TiHi|r-P,.»r 


TNP 11 1 *'.P>w*CA*£PS4 
TRP Id sut'IPP»A««tFF 
AA 77V". TNPI ; t MHP(2) 
A'lA 77P* (cP»:*CN»c.P'j 2( 
A i a 77 f * (cPG?*CN»lP!iU 


197y 


Ji 


79 


6w 


61 


69 


•*i TURN 

S G01 *1 
GQ< * 1 
in I«i 

3 71 1*1,79 
T$l II 
HGC/F 

IF I TAP. G.. 2 >HG«HK 


2t •TNP(2) 

•THPI2»»01RFF 


E p i l o 2 li co-poieo r r« suhoutine igeajc 

TNPIlT *£*p 1-4. tMHG-EPOlOi -MCGI / I 0 2RFF-HCG )I 


IF I 

COM 


79 1* 


INC I 
T I MU 


ir.NE. j I TCII »■ IAER01 UOCII) , AtR02 I-AER02) *T HP II I ♦ A£R02 

I NUe 

IF I Jnc! !}?fll?l »TC(1T» lAcROllLOCm . AF.R02 T - A ER02T *T HP 1 1 T ♦ A£R02 
CONTlNUe 
U ) 61 1*1., 12 

.w TTCHT* (AeKOKLOCUt , AEP02I-AER02) *T HP 1 1 1 ♦ A£R02 


IF I IMG I IT .Nt 
CO mi I nut 


00 69 I*. -,22,2 

IF ( IUCI I) .Nt.w ) TCIIT* (URU1 (LOCI I) , AEP02l-AtR02) •TMPIU ♦AEK02 


CONTINUE 
IF | I NO A 9 j , 
GO TO (li. 


Nt.u TCAVAH * I AERO* IL0GI79T ,A t R02> -AER02I • T HP 1 1 I ♦ A£R02 
20, JJ» ,1001 


.item 

^.Tjsoc 


» ’» • V 3 


ITCH I 


U I i'll! 1 1 •»!&••• » TCC I » 

C On! IKUc 

•iJ Til I U IC.C2 

LU ok I *2/ .2 b 

If I INI I II. Nt. WITCII I 

Coni loot 

JO f. ;*««•?! 

I? I INC <Il.Nu.JlTL(II 
Coot Inul 

Cl in i *j,t ; i , icu J 

■ •0 ft. I * i t •» 

00 /? i‘.J. i* 

i ) ft l *.f t 2* 

If 1 In* I l ) .Nt .. I Toll I 

CONI IN It 

jj r i 

If I INC I I I.Ni., ITCH I 

CO II 

JJ 7*. 1 5* 

if circuit it..lTCIII 
uJNf lMU* 

0) 7 7 I«*,w,b7 
IF IlNu * II .WL. ; I T 0 I 1 ) 
CONT I NUfc 
oJ 7* 1*7.:, 7* 
if IlNiTC II. L..IICIII 
C On f I NO £ 

Tip u » IX ) . I f.lPMOl 
THPU I * U ( l I A I) 

T 1 P ( J l«P.IAi<*’2 
T 1PI5 HllMl .tOwl 
T i° In I * »' L ^mU»^i.ph 3 
T*P<7) * A . , lilt' .*fjl 

TiPiei- f/\JXfff 

C J 


UtHOiUOCIII , A£ku2l-A£*o:i •THPIlMAt*02 


m»omK(ii , Atooii-Atpo^i *ih»- a » *Atuo2 


U6P01 HOC 1 1 1 »U*Olt-Ac*n.:iH*P(l I ♦*(.*()£ 


UlRCmuC'II , ALK02I-AER02I M HP 1 1 1 *AE R02 


UEPOKlUCtll .UR0*l-U*0*l MMPin*A£R02 


CAEROi I LOCI I I , AtRU^I-AtPOcI M NMUI *At«02 


(A tROl ( LOC ( I I » A t R02 I - A *■ R02 1 •lNPIi>*AlP02 


lAEROXlLOCIII ,A lK02I-AE®02I»TnPII l*AtR02 


lAEROlllOCl Tl .AtR02l-ACR02l M HP C 1 1 ♦ A t R02 


UCROlUOC. II i A£RO2l-A£RO2>*THPIiUAER02 


I A t u 0 1 C L OC . II v AtR02l-A£P0^l*fHP(lMA£P02 



ii* 1,11111 i 

• D."fF/VA7/F*CI77 '/i.MCNiUK 
T/iPiqi i A L J m li • , .iff. 3±l 
CA«Cb* i: )SH mu ll-U.* »IN< TMPIfl I 
CN«CL*CO,UHPl Ill*cn» UN IT HP (91 I 

cr *UT2 l-<.^TMI !2»»Cf ALP*-*THPI b» **CY AIJ»Q»8ET A 0»CY BET A ♦Ot T AO* T HP 1 W I • 

• CtHl •, j*,,tl- : *CYOi LRaTHPI M •0cLR0*CvnySQ*THPI2l •oelro»cyalc»l» 

• IMP 121* . 1 1 A 0 *C V A i M T ♦ T HP i <*) * Ot l R 0 Y OT Ol ♦ 

• BtTa J;*INPU» • ICV'lH)Y»gKCUF*CV3?0TI ♦ 

• -ilff* *1 Hi t 4) • (CYMK •DAUUF*CYR I 


TMPId » >A)Uf ALPMOI 
TMPC;. I 1 At 1 
THP <9 I * A Uli- U II 
TNP(l - lsA is TOcLRJI 
THPU I * Ow-FF/ C VA 77 F» fc '.| 
THPIJ I s.J .I-O* ItTAO 
TrlP(w|sAt'jllltL.QOI 
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CL A w JC ♦ •*'*£ < AL FHp • IL T AU I *0141 lT ♦ f HMC-JI •(»£ LPO*CL If 0 L* 
1 *r R*CLP*Pir Fh* IMP 12 * • ICLRF*0*CGNclM 

At^HI)*r.MALP»-*?HMd)*MLPHO*LKALSO*THK|<}| •CHQ 


CTN* 


CN ■CN/i* !♦ UPMU»f.MAlPM!HMd)*MlPH 0 HMAlS 0 *TMr| 9 ! •C«OE T A^THPI II • 
CHuTS <♦ Ot LCU»CHULTQ*THp|*.|«n u LQO*CPOlSU*THP| 0) •ChICCL *0110(5 ♦ 
TMH| 4 » • AIPM,J*CHA« ,»T*THPHI*OtLQl)»CHtl]UL» 

Oi nFf /VA>/F*ALF-Mr’ 1 / 2 . • ICHA 01 K* 0 ACT, F*ChA LOTI* 

2 F7/»A?fF»QI/M /2.*tCHU* •J*C0f*CHQ l- 

UIOGF/Dll-FF »CN 

THR<d)*CN 2 ALP*THPI 
CIU J) MOtl *U •CN 20 Lr*!HP| 

? hi- i s i • i»t ? >j •cn:alb*tmp< 

THPU)»Ul T AMl*ICN2ilOI*blC 
TNPl2l»Rl?fR MCNkR* *0*C 


S3 

UltUiXi 1 : 


TO .'•,1 

•••••••• 



Q*HETA 0 # CN 2 ttET»THP| 9 > •betao* 
d* 0 tC« 0 *TMPl 6 ) •OELBO*CN 2 AlO» 
L*JELR 0 * 

CM 

>-CY* 0 *CGF/ 02 RFF 


IF 

RETURN 

•••••• 


CIKJA 


-.R .to. •:» PETURN 




[f UNUA fc « .tO. .1 

ALL STm.I 3 # 1 #MBCII 
[F ( IhOAflw .Nt . v I CALL 


I RETURN 

II 

LL ST?L ( 2 , 1 . Cl 


UA 1 j. uc . « If. ALL STFL tl.l.CAVAMI 
STOVAkI JfCA^N.CV.OU.OUtUC. 00. OUI 
sio«/ak( j,cmh,ch,cvh, 6u,0u, 5u,6u,o 


:all sh h t i - i j 
;all sulu.j,!.' 

RE Tuwm 

ENTRY ^ACJt 

*.»«**».... 

II CINOAK ,tQ. .1 RtfUPN 
CALL STFL 11 . 1 . HOCII 
IMINJAn, *'**• 

CALL SI 0 V< 

CALL STQYAkI iiCH^I.CH.CVH, 6 U,C)U, GU,OU,DU> 

air.^ 

return 

OE T EPH 1 Nt IMt ALPHA THAT HAKES CL*CLRR ANO |H£ 
ASU 0 C 1 A T tO CUR 

ENTRY SACiA 

INPUT FPOH CALLING PROGRAM 

CL NR 

OUT PUT 
ALPOtSf OR 


INPUT PROP DIF CON 

GtLQN. ALPHOS. ALPHOL. m,i»U£«rr| i nu.i 

I I0A1S, iNUAlb, 1 Ni) A i A . INDA39. IROAAw, INDA8; 
INUA*E, OiPFF, VA F7F, >1 77F, aCPMOI 


MOL. HCG 02 RFF, I'lOAOl, IN 0 AU 2 , HR, 


I JuA. 


601*2 
GO TO •>„ 

TH P 1 2 1 • CN 1 / tP + CNlOLO*ULLQN* 
C*.5*CN1U* JUESO'OiRF F/VAF7F 
ALPOtS« AGUAO (CN 1 ASu ,CN 1 AL P , 


.LT. J) .OR. UBSCiG-HR) .LE.l.E-b) IGO TO 2 * 


• 0 ttQN*CNl 050 *ABlilDELQN)* 0 EL 0 N-CLRR 
TMPI 2 I , ALPHOS, ALPMOU 
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S J ?uES - * «*CAALPH*AHS(AlBnt!»l ♦ CAUS«l»AlPuES # ALPilf S 


fMt Cli AN! COt POP ALPHA. At 
£•«!** #ACj9 


JNPjT F-ur CALLING PACK, HAH 


ALP3i 

? UfP IT 
(JP 

up. if fwnp »i KA C ih 

JtlUH. He. (•**»», I HUA 4 

NOAjJ, 1 'In A ) | 

OtHpf, v-m, 

IM IIAP.LT . J) .OH. |Au r (HG-HP) ,L£. t . £-M »G0 TO J, 


»,ne"«„fe 1 «:«“*K‘iS‘-iK" 


c- L ) . lqn* 

C«.S»G»4.G* JuLLH^Oi <4 I / V A / 71 
C H'CAv A AftLPH«AUSIALPI)£ SI + CAAk S3*ALP0£S* AlPOC S 
He. T U* *1 


t'VUUAU .4UHINAL Oi l J N 
C *4 T B y SAU..L 


n 

.. I 


iMP'lf FPDP CALLING PkOGHAI* - ALPOtS 
OUTP.IT - iLLU’l 
lUPjf IH|* uIwCOH 

.L'iL* fhL »IJ, K P I hF F | f*?HfF # 3TNPP, ARtfF 
* T t ff | I 


IIVJ* r'jj, I'lur f * "Cnrr , jftfr, »KIM , OlCGFf HR. 

. 14! A 1, 1‘4uA. w , lUOAlS, iUOAtb, X M . I A 3 A 9 HUAjS, NOALg, 
INjA«., I l.lAbt • 1*1. AS,, ||ii,A,i, fHJAbb, iMUASr 
iNiiubi, 1 4) a * it vurn, AiPHKi, q!//« 


IF < HAP, IT. 31.0*. (AH', IHG-HRI . Lc.t,C*f>l IGO 
IG01«i 


TO 


THP|/)*Cu./t. *ALP. S*(OJlAlP»C<'lAS')*A||SUlPQeSI I 
C*:nhlu* i,f ♦ LH t'.Vi* A. IS 1 5LL ONI * Gil ON 
C*. >*LU. .* . i/»/a m 

T N I* I J I * Iul Pm • Ai. ( A L POl SI * GA 4LSU»AlPUlS # Al P3t S 

T 1 »•(«•» * I J- ) • 1. 1, ULl'i. S*lnG*A I ♦ TH«»l Jl • SI N ( AlP0LS*GlG«A0l 
|HPi r . MOriwp«Aw L >r*R;^F» 

T IP HI - -1 IP 1 1.1 • MHPI5l/ f )i- FF 

T'lPI j) *CiJLl C*TMF(». I 

T HP ( « I >ILH|iF ^ALPGt SHCHALPH»CHAcSQ*ABSlALPOCSm 


CM IMS) ♦AIIH 
C*. ‘••CHU*Qj t SF .. .. 

THPU ) * Th M S I • CHuLSG 

OglGN.AUilAU I T HP HI , THPC 3 I , THP («• I » Ot LQL , DEL OU I 
■It Tuhn 


IMPU’I ♦HM 
1 VFF -THPISI / V A 77F 


LVALUATt *4 U H l N A L OtLPN 
ENTRY GAC.Ul 

INPUT FPOP PNCOM 

I A P j UeRFf, lYHPP, AHIFF, ANT 7?f , YGN7F1, /A77F 
Ot L*l* Oi L mu 

IF (UAP.lT.3l.OB. <A(JS(HG-M*),LI,i,£-fcl IGO TO Ng 
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50 to 


1 1 
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IMTHP.Ll.. .100 

fiPi«s.*'f < i mpi 

X« l-u*l M?;l MG/A 
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f u v 1 1 1 « * i u ; ; ; f i • f t r x ( i ) t r 1 ( 5 ! i : ! ! • f I 5 J ! i I : r i I J 3 \ I ! • I 

FF I 1 1 sHUS I I I • S U H T |F0> 1 1 1 • F 0 X 1 1 1 ♦ F J Y I X I • F OV (III 


!hhm t J2S.R/ 

;m*o. 


HI . 11 
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tj 


AS 


13 


fflHSn n ♦?rpi jj*iioiu»x» ». 0 £.a. loo to %j 

ca cc n 2 imSi S^l 5 iV^ii '.NiliZiN.NiniiT.outOOiSii . n .fi.ju.ou.c mi 

GO TO •••■ 

(F I IN0C14.10.-Ku 10 A*. 

ju MiHoiI|i2Cui|»>j|N^N^MS T «aT . ou.ou.sii.ii .n.ou.ou.c«xi> 
:*l hi hji i ,loci n .hsznoy .nstkji ,ou, uu.s a. n ,fi ,ou. uu.citn I 

fj 0 AC 

if i f'0u«).C0.c lio ro an 

» xi 3 if I^Gil Wi Kjji ? » i oio?^ T * 0U * 0U,S 11,11 ,FI •OU.OU.CIII 1 1 


CohP'jutIon of Juiii 

JtHP >.. . 

Ju 1- Ili'i . UMOOl 


Ju 1- I L 1 • i . r.r -»u _ 
C»&0D2IUJl 

S*t< 1 1 -4JliII«F«UfP/ANA 


Hi 





FMOOINOO) •002 I IL3M Ijj U»»s/H00(N00) 

A«*SS 


► l -•» *1 


I •HIFfPII * 


iiFM/AMASS*Aa;i n •F/OTP/AM, 
Ml-ATIII ••<!*» xil ♦ A 3 J ( 1 1 
1 » •iJl FT»ll *A11 fll* 

lll-QlFrF«|ffMtl*Q|Ff» 


NUl 


'Si CM l 


Oil I - I 


£PSC 02 iC*Slt 

• t TUAN 
tNj 

SU1A0UTIN- FLIK1 
SUBROUTINE FL| FI 


F JR SACS SUMOUTI*t. 


>Sfci; i cr;»!,s^ H ti«N 4 ssTfr£ 5 ^frkK«W MC ovm4h,c 



•OCMOOUlwl .AMMCULIl* j| *NP1 S. Jjf MuJ ( 11* ,1 ,00 I » I At I 

•PF Uj.^1 . .Jl? Ifb'jjll*. I.CObil?.) ,i)OM^M 4 f .1 
COMMON/ FL4()P/< 4 fO<<Cc ll f J.OFCMCmOw I , CFOAC A UQ . > , 
•fTbl.FCI.FCY .FC/ ,<U2F I2J»,*02T<2 jl . Y&2F UmI.TOi.TI 
!/J^J|l-l,«UlM wl.i'UM'w} .»01» (2JI .TOlf^Jtl./Oir 


iiar.ru 

Jjwm- 
• * o -« f u • 

CJHMON/ 

CONNON/Hf uOM/H 

»<j*l nasi 

OlM t I OK ONAS.IA*. l,''.HASS(2bl, 







<%).* Jl '•>*, A331SI .0M2AUF9) 


IT P»£ 


. . A-> l v r.HASS<?*).GV<00U».)|C0»MASC2fc.*J) 1 
"OSIt-l , »1( 2. I f teFf)F>Cl(ttyl .DIFrdl .K2A11US) .4XA1 JUS) . BIST CMI , 
•Sjoj.wl .a*YlU> .OMFIIInM .OHTPIMm .ONZOiMUl.Crt * m.focijT. 
CTMF I2w 1 9 SO. I J) . SUl Ul »S02<3) ( TITt (U) fLAIlilt 

luOiiUCtt! ISOu'ill) • *! 

DATA HU*/?* FtE */, IT I 

•*.mto2T ,amzu*f,..mzi)< T.cuiniF,' 


lu'JI vic?MCt (su«;i(i) .^co(ii) 

data hup/,m F cE F/ v ltlTLII),I«l.lb)/SMP0|NT,NH«O2F # l,MF02T # AHTO*F 
• tlUr,-MH)< T.CHIfUF.MH 6if. AMYOlF.AMVOlT.AMZOiF, 


ORIGINAL PAGE IS 
f t>OOR quality 
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ORIGINAL PACti. lit 
OF POOR QUALITY 




8 m, 

s.L 

«i|l 

*«SY I 


!»«»?* 
• \,:± 
l . 

• . 

■1 w 


i» L A | 1 1 t „ 

tews* 

CMTRV fUli 

If I iN'JFLI.tO.; .OM. I NMlC.lU.il I tL turn 
hi •IhInCk 

NVAR»{*NH')Ol 
CALL !NUPUINVAR,LA| 

FORNULATE TMt INVARIANT ARRAY S 

FORH C0UPL10 CCKCRALl/CO IASS NATNlX 


10 


J1 


00 3 t Ol.NHOOC 
NA« |«C-i »HlNUI L*« 
GNA jSIMA) a^HRsSl 
00 11 M*1,N>T«'IJ| 
.LAalN-1 I *NSTRUt#N 


.hassillai .hassjni 
;all gtppjisihu ),s 

ALL Shprj(c1mpi 9 >xn< M I ■ ■■ WM 

;ALL &H AO J I OSPCO,f.NAGS»6»lASi,NHOOi .NHOUtl 
:ALL GT P* M iYPOU, A i^.CTHf 1 9 NjTrfjf .NHOOt, NSTRUTI 
GnP»J (C 1*°; , it*<0i» l GS**O0,N»*OOE # NST^UT, NNOOEI 


u gT,NHOOt,NSTRUT I 
>0,»rO0ctNST^yT,NHO0t» 


;ALL GHP»JIC!^ 0 ;. iY^OlltCS^OO.N'-OOUNST-UT, 

Ifct Hlit i 1 1 |B88:SRS 5S: jTftfc? : «« 

: ALL GhPBOICWi.S/HU'J.GShoO.nf'OPE ,hstrot,a 
fALL OMAUJlC{,MO'J f GMA'ii l GMASS.NHOOt .NMOUEI 

Alt S?JJ4j!;S?s(:c N Si!!{»fk&!« GS “*- c!i ” 11 ' 


NSTRUTI 
t NHOOt I 


FORM CONSTANT COMtONETS of tangential acceleration 

.1 GI » RXSANCU.MAS'i.QS.NSTRUT.NHOOL, II 
L GT MKJ| !>YH0,),1A S»i ill i • N$ TRU ? • NHOli*. *11 

l ct tc c cthpi . os, GroRCi,N*io;)i, 2 . w*w* 11 

33 L ■ l * N S T°C * 


(LI 


S3 


RKSY(NA)*RV III 

CALL OIP^iXi/MyO.PKSV.CTMPi.NS 
CALL u l PRO! J » M c ) » M .‘ A 1 . I G jHtH) I N 

Call gh$lm«cthPi .gsnou.gforc* . 
CALL GTP«.»(S*Hon,R2An t CT«Pl # N 


CTHP1.NSTRUT .NHoOEtNSTRUTl 
» G jMOO, NS TP JT , NHQO* . NSTRUT I 

... >,,GFO»Ci .NMOJE, NSTRUT I 

. iMS»H0n,«2An ,CTHP1 .NSfPUT.NNCOt. NSTRUTI 

CALL GTPPJIS/HOJ.PXAI UGSHOD.NSIRAT.NHyOL. NSTRUT I 
CALL GnYUOILTHPI f GGNOI),GFOPC5,N>100£,NSTRUtl 
CALL GTPRJI SYHCJoN* Ai j.CTHPI.NSTRJT .NNOUC.NSTRUTI 

E 3 fct WKSWMS&SJiW 88 e S* W«i a :B 8 ?i 6 V 7 T " aT * 


FOA* 1MIUI (Jtf.’UCCftf Nf« 
SWfUO 


3- 
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JF 


J9 


• .OIK « I - 1 1 II 

st»o« «!-*» t) 


SliN)a w . 
oj j- 

WHJ>SU«j»A t!(|l* 

nHnuiKi /;r .^ohi 
KM1IJ.K n » 

SViv !** \ < . g (” w V ;,VA>fV;9QSvNNOkl * 9<9l> 

OHYOlHI {)• 

01/01"! » I | I I 

;4U Gi*' 1 it GF ')•.■!. ,ul» );«,&> .NHODti "STRUT «1 I 

411 GHA.)uiiJS # Vjf ■ |S • NHOilt »!• 

All CmP« j| GKiAC JiOH*0lH,Gf ,NH00f. ,NST«UT,i> 

Alt (.Hi ) )IO>,GF.1f .NHOOt. II 

»U Gl*- 1 HGF0*C6,o&/(n",GF,N"90E 
4U vMAjjjul.oF Owii-pE, if 
All irPljl f AHwM.&l ilNiNNUOlii) 

All fart^u lIGf » 4 > f 'n ,Uh 6 i>{ , 11 

isiiiiwi 

Hit 8«S!j i zrnssac^&i ? »r “• • • 

lb I • *| lIHL'Ic 
ll-i A ••• i 

CfHPUMO •-il'HOOt I UN I # AAFfP 
CTr" 1 INN#1»*VAF,'R 

C T i <•!•«♦ 2 1 « • A 4"<nt I»IN* 2| • ANA 11* 

CThk m\* j> aAVKju5i»noj»*AiAffr 
CTHr-i 1 N <»..> i AMNUnE I NO ♦ t» I • A MA / FF 
f h»m < A^HODCl N i«9l«A6AZfr 

If IlMiNHOU 


NHOOC* MSTtUT*i» 


yd 

00 if 

HJ» III-J I »o*JJ 


U )»CTHP; JHJI »Pf « H 41 


JA ul 


CALL GHAjJIOl tOS.Q-.MWOOEt II 

!m I f G I H <4 5c i '< ) Gl • Gf KIQ I XGI 
J I !G) *9' ( lGI/off C 1 Gl 


# J<»G> «Q 

*;<! PuP> . vkui 

)J 19 I *1 • Ml 
HU 




icnt 


CUL'UPOAI I i,LAINfi) ,GQ<I» »OU*n«J,DU,i.UI 

tNTAf ruu 

in IfcOF Lt.to.j .OH.lNm.G,£0.tt> RETURN 
FORF VARYING COHPCNtTS OF T ANGENTI At. ACCtlC PAT ION 

5l»h jtj, 

JJ *»l l' 

♦* 111 II-SUOI <1-&I*2«1I 

-0 A ! )| I » •sue € 1 1 -ll • 2*11 


VARFHil«*«fff- iU*i 
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ORIGINAL l‘. • * 

OF POOR QUALITY, 


itsithctmF.iu'i 

CALL GMPiljlG»OPCi,VA«<U # GTF t NNOnC, J,l» 
00 Jt iM.NNUJt 

" CALI &N »UiHOS # GIF # OS»NHOnE ,11 
no kl l'l,h<t«UT 
0HAU1«< iF ■ Pl7Mi*NASSip 
0HY01HI {»« il 77»l* ]) 

kl OHiJim 1 77*1 -NAS » II » 


.pomOlH.GTF.NNOOEfNSTRUT,!! 

i gf^ac jJShvuih.gM . MHOOE »NST«UT, 1) 

{Jit NH jOE,NS!«IUfti» 

CALL (•N>U »<Q!»,GTF.US.NHO0l 


:jll gnp^oigtop 

AIL G 1^4 J I 


FO»P GtNfcMALWlO fMWUSf HAT41I 

CALL GTP-Of TlNOO.T.Gf » , IN.NNOOE, II 
Call GHAootQG«GU .ris.hHooc • i» 

FOPH G£ME*ALI/LD CPAG CHUf t FORCES 

FOC I 11 *FC« 

F JC « 5 » «Ftr 
FlCUMFC/ 

CALL GfP- )IOCNCO£,FOC.G!F, J.NHOOC.U 
CALL GnAjji^SjGTF |US f nKOOC *11 

FO*H Gt.NiKALWfC A£ NO FORCES 

00 ki I * 1 » HHLOt 
NN» I l-»l *o* 1 

Cl *PllNN» -- *PHCOt(NN) *AA77P 
;TNPLlNN«ll A^PUIJlI NN*il *VA77P 
IMP; I .11* ;» « -AWHoftt |NN*2>* ANA FTP 
; I HP; < MO t) « AJMOnt I NN* J» • ALAF7F 
IMPl I »N« *> * Aw*OUt I NM*%> *AHA77F 
IMP! (UN* j I •A«HOO llNN*i»»ANA2fr 
OJ kl 1I«*,NHOO£ 

GfF 1 1 1 1 ■*, 
uj <•! J J- 
HJ« C 
A3 GT F < 

Call 

FOP H GtNCKALWtU STIFFNESS 
00 kk i G* i a NMOut 

SOLVE FOP fHc GINcPALULO ACCELERATION 

CALL SOLVl I NMOGE tCOEF V QS * GUO l ) 

00 kk l • l • NHO0E 

NCON=U-il 

N^ONbNCONM 

CALL iNftUI LAI NCOS) t GQ02« ID 
CALL INTlGlLAlNCON) # GQ0UI>» 

“ WWh“ 


10 Hi JJ*i,A 
ij>in*i) •-♦uj 

.TF till inn I IllACTNPl I h j | • PF < NJ I 
;*.LL GMAOOt QS» ^TF v USf NNOOC 1 1) 


CMf rUM 
•t turn 

cntmt run 

H TUMM 
cNTht FL(Ik 

F0*>« V6PU8UU 10 Ht OUTPUT 


l I 


61 


Ettt 

iJi US::: 

0J 0 X J«l.NH(J0t 

MCON* M X-;l • J‘X-11* NMUJC^J 

S.* . KM* J . I «.)*GOT«00< n£ON) •GUlJi 

>Jl Ul • 5.'. t XMOUlHoUtNCON) •f.oui Jl 

*02 Kl* i '.'(KMUlitHOOINCOMI *(*002 I Jl 

LMM* . 

• ir' /rw-i • (oqijil/msq- i jm * ipiffp* ilrrp 

•-■mt/pi mmoi Jtr»« sow <2i » - < q 1 7 . **QifM*pirrp»xirr n 

TM» *4#/M ♦ ijcft I) *2.»IMirr'<*S3i(l)-PIT7o*301(JI I* 

• i « 


?P*pj77R) 

r< I ma 2 7 7r* >j<ri !>♦>.• ifi/zr'Sji m- 

1 *11 ;7-** Ji>7P*Pj7 79li* IROISIlYI*:OJ 1211* 

•- )17 7K.)*1 ijl , (L»l *SU. till -<Pt77«»»p|77R 

"(ROlStUI li'l.l .11 

j i m n * > > i i i > 

Hill) »W7 r 7f ♦ *f) 1 
•'3l r .llYI*S0. I 21 I 
J1FII1-S ‘lCv> 


•QI 

(» 

’0*0 


>♦ 
77 R I 


Fin I77R* (ROmLZMSOQlJI I-R177R* 


XUlMlM* li 111 
XlilCII «'l 7 7 7F* 

M* 

1 JIm H • • 1 i I Ll 

rjiiit) *v777r*vain i)*Rif7H«(Rois(Lxi»soj(ii) 

XJ L , 

VJ.FIll «>j w 


■pimm 


CO 


ZJUtll Jj»7 7 7f */ dF f I) *PI77R # lROl$(LYI*SO»(2)l-Ol77R* 

<J.FIII «" ( )j til 
Tl.FIlMuJt) 

zo.Fin *>). (Si 

P T *4 • F L 0 A T ( I ) 

call sitvAiie. <m r 1 1) t roiF(i) f voirmf/oiFm t zoiT m ( xDOFin , 
•YOwFlI) .U.FlI)) 

6? CUNTINUc 
«£ TURN 


*'GINAL 

f POOR 


• A(,£ 

r ''JALrrv’ 
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\T» 


<p 


TQ 


r i 


20 


ru«r 

*■ in* uvaki 
I r U.lQ.JI 00 TO 1 1 
10 n 1 ■ 1 • K 

N«bM-J 

*Jl*<M-l 

n 3 ** 2 » l 

CUL UPn«M** t Lft(N) v G001(H0ll v G0IM01) , GOO 1 1 H 00 I , GO ( H 00 I , 0U> 

CJNt iNUl 

til L?tQ.N100l)4ETUPN 

i 

HP.2*«*1 

Cijl^UPOUlijlSim . GQ'Jl IHP| , GQINPJ , ou,ou,ou» 

£N0 


•JUWOUTIHlE OtCCHP (NN.A.UU 

l«tisiON At2j,2.i t uC<20.2l>» 


: 3 HM 0 N 
If INN 


(P* 

»r inr«,ufiU f #0 TO 20 

’■liliii 

N* NN 


:C4LCbl20», IPS (2 01 


UL 0 NO SC 4 LLS 


Initialize IPS, 

J) 5 1*1. n 

imsiii*! 

tQMN*M« i 
31 2 J*l.i 

If ( UonN<< 1-ltSfULIIvJII) 1.2.2 
QQMN^HsAHjIULI Ii JM 


IO«N^.lH>(Ull I, J) I 
JNllMUt 

If lAJHNPHI 3.N.3 

{0 *Vo 

call $. ... 

SCALES! IMi.k 
CJNTlNUt 

OAJSSIAN cLlHlNATION WITH PARTIM. PIVOTING 
NN 1 *N-; 

10 1 / K > l.HNl 


¥ OOMN4*) 3.N.3 
CAltSI II*1 .w/A3mnRH 
GO TO 5 
Call sxngih 


?o r '}ri - 

I p* Il'S ( I 


_ . N.N 

MSI 1 1 


W Zc = A»< S 1 01 t IP.KI » • SCALES I IP I 
(iI/t-NlG) li . 11 . iw 

|i*PI l \li\ 
iONTlNOt 

If (CIO) 10. 12.13 
.all SInGUJ 

,0 Ml 1 J 


If (IOAHIV-K) 
JtlPSUI 


IN.15.1* 


i**S!KT*lPjl IOKPIVI 
IPS! iUiPlV) «J 


15 KP* IPS ( K 9 


PIVOT. ULIKP. PI 
00 lb I.KPl.N 
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v m ■ i.vT't : 


it 


5 


C 


c 


1 

2 


c 


4 

4 


II 


c 


1 

2 

U 



KUuLiiA 9 <r 1/MlvCf 

UL I |P*< I * -L« 

110 .* JHP..N 

Ullll , II JllIPJlH^UUKf.JI 
CONTINUE 
C JNllNUt 

<P* |r C I Nl 
IF lUlltrP.H)) 

-• Ac L j l N* !< I 
Pc Tl>N 
fc*U 

iJt»woun«: SOC¥t INN,Ul,Q,*l 

Ji-C NS I o . JL l2w,<CI , BlM, I <2l ) • I PS I 201 

C )hhon Ip* 

If inn. gi .« i go to h 

■ I 1 MCI Il/UL lit i> 

IUM< 

I* Nh 
NPJ *»l*. 

IP« IF SI, I 
iiii>u(Ih 

rj 2 M2. 4 

ip«ipsu» 

I1MI-. 

00 1 J* 4 , Ml 

;u"«suhmh. « I » • ji • ■ i j i 

■ III blMl-St» 

IP* lP ,Ch» 

1 IN MI If. I /'JL I I F , Nl 
uD 4 M^«()N 
i*NPi-inA';< 

I jUI IN-ll„,..|l 
IP* IPS I I I 
ip :«!*i 
SU«*... 

DJ 4 J* 1*4,0 


j J J * 1 4 t '• 

40»I*S0H* ic I I P 4 J I • < I J I 

< I l M I i I I > - .MI/uL I l' , I » 


QiTUPO 
••10 

aJ.PlUTXNi SI*H ( Im H Y I 

FJPMAI | j* w I T h 2»hO PG* IN OECCNFOSt. 

F MNAIt Swh. S MCUlAfc liNl» IN UcCONPOSl. 2E«0 UlVIOfc IN S0LV£. 

NJOT-'j 

<Cuf * j T A uOA*< C OUTPUT UNIT 
iO TO I 1 .* I , 1HM, 

44 lit iNOJTtlil 

•Milt I NNJT , 4«J I 
CALC E»C"I W ) 

AoTUFN 

£N 0 

SUHPOUT I *4 AM» IHOIU ,1, I, N,H,S 01 
Ut*lf ««* T 
T 1 f L AWAY 

AJAPT-.O FBCH Z/}>< SCItNTIF'C SUBROUTINE PAC<A&E. 
(Jb.A-CP-. 40 VERSION III 
w. A. G A BMO 1 . * »<t/lG/b9. 


• • 


0 hk« “* * 

OE PCOtf Q .. 


JO SURwQ Jf I Nl ARAV 

PURPOSE 
CONVENT 
VL^SA. 

MH 


14 * ARAY FROM SlNGLt TO QOUQLE 01 H- M! 
'i*. IMS SUUrfQUUNt IS J SI U TO LINK Tht 0! 
lwrt MAi UOObLc JlHINSIO> ARAYS ANO TMf SS» ! 
IC« OPEMATi OH ARK VS OF r J A T A IN A VECTOR FA! 


lUMfeXig' 

1UBMOUT INCS 
Hi ON. 


nRHM'ii'MH. 

F IMjut.cO.il UllMilll 
f (Hout.tO.:i sm-uin 
E TURN 


98 N I ■ N- I 


Hi 

Hi 

m 

ui 

l*w 


TtiT TYPE OF CONVERSION 
IF (MOOt -II lWJf lAWt UU 

CONVERT FROM SINGLE TO 00U8LC OINENSICN 
XJ«I»J*1 

NM «U» J* 1 

OJ 11. <«l,J 
N 9 *NM-NI 
0 ) 113 L * 4 » I 

IJ»lJ-l 

NM« NM- I 
C(NH|='j( I Jt 

GO TO 1M 

CONVENT FROM UO'JfILt TO SINGLE OIMENSION 
I JO 

NM*. 

0 lit <* 4 .J 

0 Its L * 1 • 1 
J«lJ*i 
NM* NM* . 

SI I Jl *U INN I 
NM**.n4N I 

return 

S J0BOU T I N- C T I V IA,B t «,N,M,MSA,N n B,LI 

lira 8 1 

AOAPT-.U FROM s/36t SCIENTIFIC SUBROUTINE PACKAGE. 
IJbi<S-CM- . J * I VERSION III 
R . A. CARMJE. c1/16/f*9. 


SUBROUTINE CT IE 

P0 AUjblN T nO MATRICES MITM SAME ROM DIMENSION TO FORM ONE 
MESJLTANT MATRIX ISEE METHOOI 


O 




OlHlfcSXON A (I) ,0(11 I'ti) 

NNtH 

J) *> JJ»;»* 

OJ i JM.HH 

oj v 

01 !•<)*«•• 

LOCATc tUHtNT f0-\ ANY HAT All. SlOHAGt MODE 
CALL LOCH# J.lJ»N # HN # HS)tl 

TEST F J* l L ®0 CLF.Nc.NT IN OlAr.ONAL MATRIX 

IMIJI J,>,2 

NOVt CLEMEN? TO MATRIX A 

i GO TOIJ. 4 l.JJ 
J *1 |J|*JI!JI 

GO TO •* 


«M INIIMIUI 
CJNllNJt 

AtPiAT AUGVE f OW MATRIX B 

HSONS-I 

MN*l 

COMflNUt 

»£. 1 UWN 


tNO 

SURMO^ I N f LOJ^I.J* IR«N V N«NS) 

AJAPUU Uci S/ J6w SCIfcNTI 
( Jfc-A-CH- ,)ll VERSION III 
N. A. i.AOMOt. t A/lb/b9. 


F C SUBROUTINE PACKAGE. 


SURnOUT INI LOC 

Pl,< c8ir»Ult A VECTOR SUBSCHIP- FOR AN ELEMENT in a matrix of 
iPwJIMtO STORAGE HOOt 


c u 


lX»I 

J<* J 

if ( is* ; i u.<w,3- 
i. hk tf.Mj4-.rn* 

GO TO JG 
<w IF I IX- JK) 

}} IrffslK* (JX’JX-JX l/i 
GO TO J 6 

2k I4X>JX* UAMV-lXI/2 
OJ TO Jo 


1 ■ * c 
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»• aatsa* *»-“*>• 

SjHrcut 


c*i*uu 


lOAPft-J FRIH S/4o. SCIENTIFIC 
vi !*&,**! 


SUO»OUTIN£ PACKAGE. 


SUtftfOUTIht GNAOO 
PURPQSt 

-oj two G£nc*ai matrices ro porn resultant mineral natrii 


&; 


01 NET'S ION A Cl ,0(11 f Rlll 

CALCULATt NU*bC* OF ELEMENTS 
NN«N»" 

ADO MATRICES 

00 U l • A t NN 
R(li>AIIMl(II 
At TURN 


£N0 


GHP*»0 <A,0»R,N,M,LI 
GMPRJ 

I f L- gnpao 

A U A P f - ij M>CM S/3 Hj SC 1 1 N f IF tC SUBROUTINE PACKAGt, 
J*l *c.PSlON III 
e. A. GAOPO.. k«/16/69. 


U ,«°U.U f 


SUBROUTINE gmpru 
PUPPOS i 

multiply t mo general matrices to form a resultant GENERAL 

HAIR I K 


01 PtNSION A 111 .0 (II .» Ill 
M»w 

U«-M 

OJ U **i*l 
I<« I**M 
UJ 1 u J*L,N 

I«« He 
«:«- 
R ( 1 R I * w 
uo ; v i * 1 1 m 
JI« Jl*N 


14 * I o • • 
it R{ IRImPtHI •A(Jll«U(ini 

A‘_ fUPN 

&:«0 
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# %»«PT *t, 

•io!|i U l#!«i ,M / !ij£LTA,2MFr,4,».HUFP.M<FT*«,4MFTA »t 
« MtLf A, i**' 

JAM r Af 1/I.N1 | HI. /, loll l i II .!• 1,151 /{MLH.JMHN.fMNN. 5Nlj|?f«, 
'HfHti'ii, •p'mIpo, jMf/H.$HA*F7f «6HZ0ffr ' 

»NIG / 79 1 


J At A r Af 1/t.Hl | hi. /, | li A r 2 < I) jIM.IJI /fMLH.JMHH.fMNN. 5NU|FfA, 
•»H«Gf7» . ,mC?rr , 1/, 

•<JA f Mil, |t i ,*.»/< «► f ,c*HV ,5H0 El TA, lMt»,<MP2.{MMA/, 

•lOAft.fl » ,| * 1,1*1 .AHKlie f , JjHIfljfF .kHjnif . . 

.au> Hit.. II*. T . Li. ' 


>*V£ (I A I uf< MPc 
I r « IPC 1 .C l. wIKtTUIN 
L AC f PT »* 

If II Lt ..f.ll 

N*t«2 
1! < IS 


GO To 2.1 


IF ( ISUHl.Nt. . I NHL "NHL* 1 


1-5 


IS 


UH*«; 


1.5 i-l.NPTj 


}h lioM^.Nt 


•< Itc f 1JINHL 


•»* 

Mt 

I' 


2-1 


I NHL ■ NHL* 1 


3IN15.N1.0AT2 


if! ;ai“gl|| * iKSU;IluSI;81Ii* 0P4F 

i«i tll3)*flH£ 


iJf/^TNfPU.P.fPJtPHlPOtf/H, 


mi 

Hi 

If « liUf .N 4 . ¥ l to^irtflil LH.HMjNH. Iirt'iirir 

•A2 n* iZo'/f 1 , MbCff ( A'.FfffVGFFf.AKF^f , MGfff 1 
lr 1 1 - f pl • .Nt . > I N-? I Tt, f 1 3» f T f;l »Sf f lit 01 If A 111 »r f 1 1 .P2f) Ji M * < 1 » » 
!»J^is*II .SOI (;.l)*>fl«l)tS«Dtll#l! .S2ftlflfil,^t'fl*ll *0Hl tfil f l • * I 

HA f 21 • 

lUtil 

If f i^Ulf,Nk..l N^IUflJ) Ft IJI ,SF< Ji.OUTAfJI.PfJI .P2fJI.«AI Jl. 
• 1 1 , J)|»ulfl»J) t Gf l.JI.S 20*11, J» *320111, Jl.SJf 1, JJ.OHCtOlfl, 3) 

IF < littt-.Nc.w 

-I. >0111,4 I 


•0«L T «i f 1 1 


if 


I *8Ai i it t f 

•OJtTfl.JI 

?f fiuilir.'Su -I nMHftJI *02f fll .*02TfII.T02ff II ,T02Tf II. 

• / J » F f I ) ,1 U I (I I .*0lF I II .*D1T ( II . TO IF < S I • TOlTf II ,10 If 1 1 1 .701 
•« J.f t I 1 ,T0-F 1 1 1,/Dwf 1X1 
"On t inul 


TUI 


GO TO 

.ntpt 


i A 

LN i XT LG'. At P 
IF flPlt,. J.bIPI 
if fLTpf .ta.-m 


TOPN 
f JON 


2*» 


LIP?*. 

LA-TPt«: 

nACKCPAC ; 13 

- I f » f 1 JILA51PT 
IF fLAGlPf .t'l.wllCTUPN 

two rut i- 

«t TUMI 

CNTtrY IG.1PG 
T I M £ Hlifowy P«IM 


If ! lNliLG.tJ.ll J i TURN 
CALL ilFtf J...H.ICII 
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0RIG4NA*. 
OF POOJi C 


r> 


Ml 


its 


||KWttt;i:8PiW 

>0 Ml I'l.WSfMof 

:ul iioi/*- (6 .jutau i . p 1 1 » ,p;i 1 1 ,r t ni,i«ni , smi » . aa m,rct( in 

|| L i,I v Wut»S5{ J * 

JOuIinUl 

cui^sirLC2^|0P|n 




I L t * i4°t 

COHTINUl 
CALL if#LU ,«.0P18» 

CAll^SIOVAPIi,MPA,MHB,FTRC,H? I, 9TV,HTt, 


IUt StKlt t «»,OPl<n 

, t ilO¥A» I •»,"M # NH,OU,t U,0U,0UI 


Kt V 

«CTUPf4 




commit*. ano print cones 

TURN 

tMTRT L0iA*.f 


!J!IK8t£:s3:5}!M!«S 

no b i«i,nst*ut 

Ui u»;0Aru f LA,ln ,S201 I&.II, f2 a, I) f ou,ou,oui 

111 upou u,ilui> t soi<i,ii .su. 1 1 .ou,ou,ou) 
jij OJJUA? a,i lUi.ftNEf ii,I» .oi,Bu,6o,6u> 

Kt turn 

UtfUrfliV (TOlA. l,*l 
PKUGWAH TOlAKl 

Jmhon/CUN? PC/JC^MTR,C 0MTR1, ICONTt, IC0NT3 




Pl A.J 


:u 


rl? 



u 


it 


<-«l 4 , 9 ,b 

lit! 


;Alt ! 

^ALL^PCTAO 

Wl i8om/r-6I T, 1,9 

CALL OPTTAD 


imh- 
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1 u 

ii 


e1hVilto fc4 -" ,r ' ONTBl,KO,<T * ,,COMT n 

sSmsouiin. f trs? 

Cjnnun/T A l,*l/lOC?f M/I ,10CSAC< Ml , IOC VPC< 1 »> .lOCSOMw) ,10CIGU* 

Sitting u*» units m>« irrs 

C 4 ii umi. ,ix?ff # ? # im 

T Uf * 


rUMi 
StfTluo 


\J* Units »0* SACS 


CH ?# 

S*Vfi 


nta* sac;« 

TS4C«H»HAUUJltlOCSAC<l» »M V It A) 

IAN 

Si? ? INC .J*» TAUCS fO* VACS i 

£ni»y *orun 

^Aj|^ UACMltHV f AH«i # lfiCVA c U| , Id, U»> 

Sitting up umcs rw» oat? 

tNMV OPTUb 

in i m«icn<*h)U*i«i .iocsof m it s» 
rf£ TuPN 

»lTTlNG UHUS to# IvitAft 
iNMf IG?U 

GUI t , dCHi«w»-i ,i .I'tcir.in , i,.iai 
C 411 U^CNloACliriatlOCLGIO ’em 
■#t T jin 

ivuuT I n. mao 

CONHun /vliGi/ fil'd . I T file . CIO 

• I AC ,« , I SC -»• 1 1 *1 * , SI T S v h , JOC f I NX 1 
jlNaiSI ON 'SGI *«!>•* A ICS). <Al If,) 
tnjv-atNCr. m ju i i » * : r hi t Mj ,i :t,i 
l#UIV4l£-<3t l M «G I i»,PA I , <Aj.(»t), 

fbllWt'sr.Sift^r-iSSSW 

cj-noi / • f ui* i t / j i s4i.h , T»bsr • 

DATA It J. A III I j?uA>t .1PA.N AS .NOV t i ,0CT .COIN 4/ 

• 1NIK ), Jh|nT .HHSTCA it , *Mf 44 ,3 nN#G, IHN, JhOCT 

$111 ftSEiVttrtiT * lS - m 

r, uNAT (mi;.,) 

fONNAf 

fs)#N4T l.iJlil 

f JNNATC4.,, ;«,4 1 1.6*41.64 II 

f)**NAT |J,|| ,( e«0-.T,«t STHbOl 


TOO 


p I 
NO 


.IN,/ 


fOCNAT 

t j-»-a r 

f (JVHAT 

I 

fliVN., f 

M»NAT 
f J^Nil 
f JONAT 
f JNNA f 
f JP HAT 


%*Al r 

•It. sVNbOl ••M,? 6 m»» IS NOT IN T Hi OlAtCTOAV/ 

IM I 

Ulitl 
I 16) 

(* >». I »40".AN GTCASl NAG CARD NAS UttN 
-/* ioa PH1CN NO BASt C Sj Is availIoi 
igjn t I nput gtc* no t 5u6ltO mith 

<:4<'Ah t i*,A: v ll.SSAl. I6« 

I.Sri wtow.COlUNN W Is .jIANK/IH*) 

I :fH v NO-tXCCuTt OPTION SritCTCO) 


NTEAEO. 

OK f 
4 S t CARO.CBAOft) 


H'AW 
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£o*hat m , 
k > , 

00 it !■!•< 


9A6I 


\u 

II 

c lf 
it 

III 
C TC*" 

110 

111 


K.ftjCi.”' 

it it ia,i9 

ULL lilPlACIBAl, lNt,BLANKI 


m&SV!th!Z; 


CISC I GO TO 1 13 
TO lit 


r Cop . <l . n«G I GO T 


120 


1 21 


110 


ISO 


112 


160 

in 

lit 

no 


me 

-ilTC ;U| 110,110, f l,S"H,UP,«A» INC.IIABLI 

lie « L t ib 

•♦cNlNO 16 
IBC-t* . 

jfc’i i M 

33 S J : t 

*r ( OP V , N( • Till COI GO TO 121 

f L Vil esrP* GO TO 206 
in • . 

r ( will! • Hf. . MO * £ Q I GO TO U*> 

H M • « 

ALL llHLs <21 

t , M ,o m 


If I uc .to 
Io 

IjC«* 

O') 


HI 10. 

f TIN* .to 
f 1 1 lie .to 
0 fo 1 „. 
f ijuc 

f 1 ST- wen > 
r (► . ti 

F I OP .Hl 
CALL L1N.J 


;i go to aii 
wICALL uaoa 


II GO 
GO 


IIRCRWI 


<11 


IO 231 

-» GO TO Jrt 
NA) GO TO 20'. 


*•< 


ft ( 6 J ; . I svh.op 
If tl‘»t •tQ« 01 GO TC 

110 * \ 161 ^ I 10. IjQ, f l»3TH,OP, BA | INC, IT ABLE 

$LTS*H • 

KlTu*n 

If HUG .Nt.ll GO TO 152 
CALL HEAOA (IMCPW) 

< ■ 1 

GO TO 152 


160 


N. 

•ii? It 1 1»>» » iu, . . ..... 

If ||!K.:SZ: ;! 88 18 Hi 




f 5 ?..::-.: ?! 88 

f dec. * 1 . vi ca 


TO 1«Q 
LL 


' VIm 


iibcpni 


H 


Ml 


?*Jl l ««CA <1 €H^0 » 

KiMlM/Wi ,liA " , 60 f0 m 

«<IJl (b»Ul 

)' (Svm*!|Q, jlTVthl CO 10 410 

wiWt L il.ii 'tin 

ir ii ic.n*. ti ( 

In« i • I 
jtic 

M 


GO TO lu f 


1 * 
4.1 


SC* 

,ftf 64 >0 
OfcCOOC CAKU UCftOt 
III IF (OP .'It. IiCC) GO TO **JC 

JATA IV HtU 

i. . 

±i 


0 A A 


03 U8o 

. «C^iU. l nh,fI(III I *MD,L •«!,<<> 
A 1 * K l • 


Hi 


3 So 


.1 


continue 

t JwkAI { SA;) 

CALL VfOA; 

lt‘*V id u hfl !N,’?i!‘i»H?Xp f «A # i>*c 


C NU*E»IC 

C'S' 
c 


14 A 
TtPt .JATA 


o?A|j F { YP 


if to& 

I NUvi* Mfi 
I* (OP 


4,9 


4i j 
4l> 


tit 

ti! 


AJS 


10 * 4 

l i‘ J 
JJ«i 
« i 


1. OCT) 
;i I.AINfl 


IF I « 1 
IF |«4 


<i * l M 1 
Li * 1 4 ♦ * 

ir IU ..T. l*t GO TO A 1 A 
If lUllll .10. tOHHAl (.0 TO 440 
IF |*A(l'4l iK. ULANFJ GO TO Alt 
I 4 « l 

?n?;i .Hi, 01 GO TO 904 

J 

{n^iljS! :tf: fTM 88 18 SI 
iSM u. 

IF ( Jd .CT. KOI GO TO 4JJ 
IF I > „ 


I T AdLC 
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Oi 

*20 

li ! 

TOO 

roi 

SSJ 

<9 

29 


ISIS 


, »ll pjT'iifi, fw.fi. jji 

.0 TO jS, 

:*LL LlN-.S III 

Z 8 WS h“ 
lilt M? 15 

mm ly#ii 

Sl’SYN • »YH 

$,A0 l*-M SYH.UP.KI, IMC 
IMlOF/,) <b. 2 b 
«.«IN 0 iJ 
STOP 2 > 


i9i iio.^j.fi.syh.op.ra.in:, itable 


FfSYH.tO.STCASClGO TO 21 
cue NNC1NO IHSGI 


V 

4i 


f iop .eo. m i go to «: 

f Htui . LU. Hi UK I GO to 29 

f istH .tG. SLTgYHI GO TO 

Call oscich (GYH.iun.iTAnui 
f IITAUU .IT. il GO TO 8U 
CUl LlNti 111 
•MITE tb.»l SYH 
GO TO tul 
(NO 

SUBPOUT Pie DIPLACIRAl, INC (BLANK I 
jlntNjjon NAllbl 
OlHtNSlUN PCI it 


K UP COLUN'l bf TO 72 
HT JUST IT Y FOP USc IN 


9N0 

THc INPUT POJTINE 


W Wltif .NC. BLANKI GO TO 2 
00 1 N«i(9 
N 1 » * - N 
N 2 » 9 *N 

VI1IN*I MA1IN2I 
PA 1 1 1 1 ■ BLANK 

INC>W 

IF EXIT TNKOUGb GO STAT EHE NT 2 
THEN A VALID NUHOEN EXIST. 

GO TO 9 


CALL PACK-IrfieAl.KCibl 
CALL «itlii,fc,Inc, II 

•It TUHN 

6 no 


n 


jJMNOUTINE TAHRE 

CONMON/TAJCOk/LOCSlUSI.STAULEIllSI 
OATA BLANK v UCOTRA / IN ,3HTRA / 




9 


a 


«• 


n 

*6 

21 

22 

il 

200 

1*4 


100 


109 


c 


Nib 1 : 1 :*"' 

>»NT*A ■ li.AK« 

Ni/H* t 
N? P«- 

UlTl 16. J» 

rj-HM « ,» .tefMfAOlf Sl/tS FOP EACH 1 ABLE USEO IN THIS 
-9 ,M j Jpjui JiAi’Jsfi l/*',ni.4N«o 


CALL 


*0. JCUT<A» to TO 21 


w k in t 

F ISVHI <A 

•MlTt I ©, 6 1 Sr*, ,VHT WA.NTS I2t 
F 0 p H A T (M« ,^,I«,A J, ll.I^I 
.S 


.It . i TAlLt IJI I GO TO 19 
1S< JI«NT>X2L 
•|>JH * N » j*i *NT 1 I/E 
sf v*M P* ; 

&.IMI 

TaiISIp « • T wtt • 

ClLL LINti Ul 
*«IT£ (©.:*•» STH 

F J»»AT li‘«. , J6* # A6 ( 29H OOES NOT Ei 1ST IN TA0LE LIST) 

■» J • O 1 . 


«l|tt It,* I CLANN.SYMTNA 
NiOH*NSU M *HA« l-Nfl 
•HIU I 6, Jc I I.9UH 
M4HATC J’,*, J9HI01AL NU HH£ 0 CF CELLS F0« ALL TABLES 
IF INjJM .it. *• A * T A 0 ) GO TO 20: 

TA ISTM t , |»u£ . 


CALL LlNtSm 
Jl 


► A » T AfJ , N’iUH 
FJ^HAT I.H. f l.i. b ‘»HTOTAL TAULL SI!£S LXCEEO I6,6M 
NGr HA.IH'JH TOTAL T A HL t S I »£ S TO ,16/ 

•o^l JN TH. H A I N P9IJGFAN TOLA I 

jo :Ji I«.,HA«T 
L JC j ( I I )'«T 
AJNT * KDItHSItl 

*L TU<tl4 

vJPKOUT l*l£ HI A 0 A (ICON) 

A i/» I (»•>) . I TABLE .110. 100. OH < FI 
HUGE* *50 IS* I 
IF (1 )C*N .N, . NltUBN 
*6*0, 1 it* Ilf'.J. »F I ,HSG . ITABLE 
iF jiib .r. c . •;! Go To 1*9 
HCA* « i 
fU*N 

CALI nw CA<0 IHSGI 

if ( 1 1 U .Ll . J W C I U-'N 

CALL ^10 c.1 J.IUUH1, inUN2.il 

G J TO i.. 

tNO 

jJ B^OOT IN, jT'lht IN, INC, INK , ST APE* 

InTEGcN ifAI't 

G JWHON/L .4 JJ/F I (VS) , ITABLE ,110, 100, OH (7) 

CJHHON/OIPCOH/GATAI mtl 


W 


NHON/TAau I N/ TA0L& 111 
(STAPt.NE . w I GO TO Si 


pun i 


* 161 
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90 

1 

2 

J 


10 


?!ncJ1t.C) H10*g • -l 
MO • IJj* INC*P10» S 
IF (INI .tu. (.1 RETURN 




JfilLw .IT. „) GO TO 2 

Sat! ! it * • r x c x » 
return 1 

?Wc.iJr? nm 

I )l£ MFC AMUIHSG) 

K NjGIM) 

CALI LlNiS 111 
J > 98 

IF IHSG I 98) .LE. J) J «57 
KPIU lo.U « HSU < 1 ) ,I«i. J) 
n"MlT <U> *A6»l»»A3.lX.S5Al, 16) 

turn 

£Nu 

SJlfcOUTlNc. PACK Hi ,12, Ml 

dimension mu 

UATA I UL / 6M / 

1 FORMAT IbAl) 
i F (JPHAf | It) 


?>“!!!?< Jl 


Gfe.o ) GO TO 3 

K * 6 - N 

»MIU IJi.i) I I0L, 1 * 
GO TO N 

***i!?_< jin* imn. i 


i'K),(iim. i 
* 1 ,6) 


PlnINO 

-i*D IJ 1 . 2 ) U 
Pc TUPfl 
ENO 

jJ'IBOUMN. JSEBCH I SYM. IOC , IE«» 

COMMON/ FI <01 P/AMAMt 19 w l ) . L 6c 1 90 0 ) , NC OUNT 
00 5w I«1,NCCUM 

N t . A NAME I I ) ) GO TO 53 


53 


[M 1 .J 

IOC > LOCII) 
PcTUB 


C 


tTUBN 
CONTINUE 
C'LL T S R 
RcT'JRN 

J 


CM ICVH.IOC.t, IER) 


>JP ROUTINE PACK 9m I I 1 . I k ' . NNN) 

ri 

<• C .-NNN 


) 1 McN> I On 111;) 

11C0 FQPMAT I 1MI, I2.2MX, I2.3MA1) ) 


EMCOOfc II., ;U,,XMAT )K,NNN 
cNC0UEl2..XMAt ,12) I Il(l) ,X*1,NNN) 
RETURN 

EnO 

SUlHOUIlNt NlTclIFI.FJ. 

DIMENSION F I 196) ,F J 156) 


LOO 


UlHOUIlNc NlTtlIFI,FJ.FI,JJ) 
•-NSION F I 196) , F J 156) 

TO llC3.2Cw.iw0.6J0) • IF I 

I*i , J J 




l.NI 
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I 

i » - .»< w« 


r 

2 «J 

3 C J 


i°‘ 

1 

<*64 


-ti 

% 


[j^UMorj.nnn.i. 

CJNflNUL 

¥£Tj**« 

Xl « 1 

™ S«i I*i t jJ 

^cAij ulo rjinMniu 

i J»’jf friOC 

ro-H*T <£<*«. w 1 
«,Tj»n 

:1m 
Ji » jj 
jj«i 

jj?ji* **«•»• rjl * ri< HfX-ltiWI 
JF < MiTJffN 

I X * 1 1 ♦ 

Jwi 1*2 . jj 

o-.con: iu,;,uuniFtin 

■*t f j*»« 

11 *. 

JJ I'if JJ 

.JtCuni 12 .,. ,» jiiiii f x 1 1 1 

iKfkjr 

FO'lA? I I J . I 
*£ UlQH 
fc*G 



-X'”-*'*'* ,*>l f )l7 

04TA jNAM t I JI .JMJ / 

OH-U2 , k*<0 A ,• uCALPG 

bHjiJ V -i.Mrf.4Mi. . ..urn 

oMCb J 
jHu f 1 

If. , - wvw . . 

L ff .f.H.lLMTF 
bHD*-A^M ,»Hcrcr-< 


i ,t'«uA • t HLAL PG t *»»‘CA-*NU 
>»<* ,tHCGAM(. fOHCGA.a.HHCL 
«CN;HMJ,t.tlGP 

1'JI .bMOCC*-* S.hMJCLNO ,o*MiLP0 
IT* 1 1 M(Jt l f l fHMOELU .hMPLfxr 
Ifl .i.u.ii »fr . i.um lii 


,GHCn£TG 

.bMCIHNIJ 
,hM0 Y 
.bHntLyO 


,nHC0 
v b 4 G H 

.GHPLLPO 


1 bHC O^NU 
, bHC HMNU 
, bHC Y M 

•bHDtLTS 


toMUc 


.0-^-1..') inriiitiU 

.PMutLIJ t f»Mf'lFXP , 6 HOL F » P , (iHDIF /P .SHOLHl 

.««OLN F .S^JLTMl .bMJLTHJ t b-lblTMJ , r>HOL T 5F 

!w Cf .^rr ,f, ^! C&F *<»WO»NPP , h MO Y HPP • , b* 0 1 , bMP ? ®FF 

bHOJ*<FF ,bH()3 ,bHOW ,bMIJ* ,tHQt ,bMn7770 
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ttgfu '.mat 

<*HtP^4l ,t.M t £>2J ,hMCPS<». 

gis«? #».» 



ILOCC Jl 

M . 


• •?? 
t «b0 


UtNil 

6M t 0, 9 
bn;** 
bntlt P 
bri&xarr 
b»c/e?F 

bMMN 

Will! 


CHO ' ’ 

9u OCK DATA OIUJJA 

S27S OM ?£Ui , iSf?5?SJ'!;‘ J , ,sV? c ' ,J - , * , * COONT 

t. u I .1 ^ « . . I A „ ... . _ ... 


W5J 5 

6 MO A HOQ 

Bill’ 

bM | A 82 V 
bM l A 86* 

!! 

I 

Ijj 

139 

Ifi 

h 

tSs 

i?» 

(1 b 

2bw 

l|f 

iff 

8 

JSt 

h 

bbJ 

<•«• 7 
65b 


iKlnl 

ibMCAMIF 
I bMG*G*F 

;KK|» 

:tm" 


ItfBtt : 

|sf:i>p ; 

bMGAM IF if 

# i 

bHlAAJT , 
bMlAAFl / 

a 

.'3 


bMl A*/Y 

fcMl ASJA 

b M [ A r l 4 V 

(n 

bM 

t M 


bH 

bM 


• l'<!A*bX 
ft M l A )«;Y ( liM 
v fiM (A942 t tiM 
1IMJ f t.M IN lALCfMI 
NO »u*< # ».MlNUAI»t, hH 
N 0 A J *. • tM IN i)fl w J,oH 


l" l N U(*Ji • tM 
bnlNOA.9 ,fcM 


f NHIA'K V 

««k/ 

A 9 9* 


, tMlNUAl F , bM 


»<3 , f.MXNUAc (•(hMlMlAtbihH 


bMlNOAJ F,bMlfJUAjA,bM 
bM I NO A •« 4 t fcH IN JA«* bf bH 
bHlNOAblt tMlNOA*>2,bM 


#0» 
fbM 
• bM 

N( ALM,b*- 

NUAMCfbM 
NOAJ*. ,feM 


• bM 
» bM 

• bM 


N DA 1 J v bH I NQ A 1 1 1 Ol 


NO Al 


|A9uZ .0MIA91X 
I A '1 3 X fbMlAqjV 
Al r »y t 6MiA9s> 

NJAUO t 6M[ fOAOr. oM 
tOATM.bMlNDArM.bM 
.MOAwbfbHlNnAtOtbM. ....... . wn 

HOAl| f bMlNOAiJ t bMiNUAlb,bH 
v qiiAl9 ( bMlNDA2. ( 6tINUA«jl,bM 
MOA^btGMlNlJA^F # oMlNL<A^b # i,H 


A91f t CM 
A9 J J ( bM 
UlSPl.hM 
NOAtU.bH 
nOAIJT «bM 
Nf)A j F f bM 


XU ; 

n“»S1; 

Nl Alb. 
N0A2J, 
noa^; 


bism H ss i L" « s V V :?« : 


SjJ&W S8iSUS SBiiltfi 

M0A9J ,6». 1 NO Abb, 6*1 NO A 9C « bM NOA ->b *GM I 


NOAA }| 

NO A b J | 
NO A£ F ( 
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c 


irf!riS2;S:minAn.ZsUiiiiStt» 


, *M \U't / J 
%P i 4«t).. A , » H l »i u A . ; 
•HPl ; n 7,4 M | ’40 A n 
OAT A 1*4* 1u U ) 

6HI < j"l k ' , t H 


hn 

o N 

oM 

OM 

pH 

bH 

6H 

t: 

bH 


*iU .Uf .1 H 
NJ,M ,m» moCS* 
Oj|iV,*M i.) JilP 
f«J p )‘ , •« N„^C 

N0b,4.lM '4. )** S 

nn 'll , • H H,i >1 2 

NU'»4fCH «.)'., 9 

Hj ; if ,» h u i » T ► 
NO /PC ,r,M 

p; ,».h 


**h 1 T 1 7 • bH 


4***1* tu , i M •}•'» ~ • 

to 


L‘!/5 


NLCCf 

NC*lT 


N'irff.T 

p c 

TUW 


0 HPf 77y 
bni'Hl T | 
feMP, IPJ 
bMRAf/ J 

OATA HOC 1 * » ,<* C 6J , 


4b7 

s»: 

bii 

495 

55*. 

5i'l 

Ij! 

Vs) 

944 

& 


» * 

,»,hPhl7(j 
# »HP$TfO 
,1 HhJffN 

ill 
; :5? 

»i.4 t 

. 40 ; 

. *.<6 
5.3 

is? 

530 
9*9 
597 
599 
56b 


OATA S, (tOC< t ) § L * 379. 


579 .u 

98 3 . v 0 7 

59j , 59* 

i»y* * 

6 y 0 .6.9 

b30 . 61 ) 

C«,9 . bib 

a: , bJi 

bJ* . 639 

H 39 . 940 

657 , 6>® 

o , 7 

916 . ) 1 6 

o*>7 . 6 -j9 

6 7 ) . ft 8. 

6 99 * 7-*> 

7i9 , r:s 

„ „ 7j t ,1113 

6N0 

DcOC* juTA 'Jiwj.u 

COMMON/ 7 Ku jK/NSh- I 9 » . ) , l QC ( 9 J 


« »4 INO A 74 

i »• I Ui i A j i. 

• .MpH) All 
9.4)/ 

. I 

• HpIf'tPA 
•4l)GVf 
•UltAf 
h'* PMC 
NCR. h 
NHP1 3 
NUh/T 

8;tt 

9UMIN 

hi 

bMPHl AO 
bHPJ77» 
hH )A7 70 
CM9LM 
7®)/ 

459 

4fch 

47 3 
*77 

48 7 
4)'. 

497 

iiy4 

911 

itt 

93*$ 

5*fc 
5**3 
56- 
567 
>7* 

.4)/ 

1 w 3 7 
980 
796 
bv 3 
617 
67. 

62 7 

4 S4 J 3 

£Sl 

0 

»s 

774 

735 




40A75 
9 J A b 3 
40A92 


I 9'JCNV 
1 M Jr P 


MJ 
9f)Mt 
4IILJ7 
41) <T T 
4 )9.7 
4M 14 
N I*.. 
4(3» i > 
4 1 j S I T 
)0*YS 
ICASt 


0*« 

M* 

0" 

6M 

•» i 

H 

6H 
6 I) 

•>•* 

». I 
b 4 

OM) MlOO 

•>• Pi 77P1 
b* 0‘ 7 7 » 
•»hp. 777 

» 6, 

*47 
« 74 
*70 
*66 
91 
490 

»C> 

019 

• 64 

r 79 

1.4 J 
f 09 
•»9o 
it. * 

1 ! * 
bi * 

>1 0 
63 4 

441 

j93 

66 j 

if- J 
6*3 

*» 0 4 

1 7i 
7c. ii 
. 69 


?:T 


b»4 


;;ss« 

•ip A / b 
6UU ■»* 
440A9 3 

6 )llN 0 r>C 4 

•4 
4« 

4.M 
6M 

K 

hH 
6 M 
6 M 

b M 


fi J4 4’y 
• lOHTt 
UtlLt A 

MOCwi 
7n»ji 

6 I) P 1 7 

n jp:. 

•10424 
NJSMT 

6 M I T IwW 
b M I T 112 
JMOHJ4G4 

cmPmIOO 
6MPM77P 
6HJ1 77R 
bMPi 77B 

4b 1 
4n 0 
479 
1.30 
409 
*92 
4 )9 

lV> 

9?> 

534 

54 1 
S*M 

556 
56 2 
669 
57C 

60- 

69 7 
6.5 
615 
62 c 

629 
635 
642 
654 
661 
911 
910 
675 
606 
7 1 w 
1170 
766 


WUTijtS 

NO A 77 ,LH 
N lA f6 .CM 


r.')A>)4 


h4 o T M I M 

MiiPuP 

NMIOT 
NUMAC 
».nc ii 

M'P. 9 
6 i*ib 


N I'JCl 

)4i)TFr 


m4 
bM 
U< 

41 

hi 
» * 

MM 
h 4 
|4 

t*4 S 1 Mt 01 
64(11, A 
b-4 1 V AR(jh 
bMuM/GR 
CMPhlLO 
4. 4* -NO 
6M-JI 77»i 
6-4PC77N 

4 62 
469 
306 
93J 
4 0b 
493 
>44 

> K ' 

514 

521 

lit 

Ki 

95b 

W 

577 

>01 
>91 
>90 
1 Ii 4 1 
ol6 

w. 

6)6 

6*3 

655 

4 

n i 

676 
6 8 9 

n 


u r 


6h 


113131: 

•407. 7 0. 
ti O .1 n 6 . 

N0A95/ 


f.MlNOOtw, 
' »4 l I’, 
NO f *|P, 
• 4 IP( A, 
•mr v i, 
•400 11 , 

NDP 47 , 
»4.ivj3, 
N05PL, 

bMI Tl. V 


b*4 

».M 
•»M 
6*4 
6 •• 

4.M 
• <’• 
bM 

6»4 

6 M I P 


0mmCA*-» 
CMPA7/P 
mmPm t r«o 
b*4P 9 tOl) 
6M0M77P 
bMPMN7f 

46 3 
47- 
Jh 4 
47 m 
407 
494 

VA 

hi 

tn 

54 3 

lit 

964 

971 

570 

5 02 
692 
6t - 
h: 7 

l A 

:» 

b4 t) 

656 
062 
913 
bb 5 
678 
695 
714 
729 
773 


UCOUNT 


original 
0F POOR 


p AQt i 8 

Qualitt 
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•*V¥ r 


ORIGINAL Pfl 

OF POOR Q’J 



*>M*N7 7 4 
bHMNfP 
b'«RP77F 
IC.7.) 
*>HT A JW 
b H T A77-< 
bHfMTfO 
bMl IUPM 
hMT VAC P 
bHT 7 A 7 P 
fjHtJP S I F2 
6HVI77F 
6HHH777 
oM< y 77N 
J»hyA 77 P 
bHY<»77F 
♦.H/C77F 
6 HN SNA IN 
b HR Y 


hHH 

bHPZERO 

bHS2 T 

f»HC^C 

OHCS 

6Hi0ll 

OHS J 

eHjioas 

bMS22 

bMOHtOtb 

OHA I 

bHOOELTl 

*3I5 lV 

6HICH 

bHXRF 

bMXS 

6HV0 

6HRFH 


b^HNC* (bHRNr»HN 
uHRNTR .bHMNfY 
6hR 777F ( bHSGNCB 
bHS 

Jh!i>Jp 'IJhIhl/o 

i)H l 1 Mt I *»H I I Ml S 
bH f NAI ibHlNFi'R 
OHTXA 7 P t bHTXP 7 P 
bHtZ«7P .6HTZC7P 
b HU 7 7 7 F , 6 MU 777 F 1 
MVH 77 F ,bHVP 77 F 
b-«WtR 7 P ,bH* 77 ?F 
MJUffF . 6 HK&M 7 M 
b-ii GBF t GHt 0 77 0 
MT 77 F ,bHYN 77 F 
b -1 7 77 F t bH/N 77 F . 

£2Br NOV :^iS??2g; 


78 c 

K! 

m 

lit 

S9*> 

u 

l \\\ 

ic 3c 

Alt 


,nn 
M 9 
8 G 6 

M 

897 
9-2 
9l 9 
• 12Cb 

stilt 

: H: 

, 9^9 


tils m 


b- 40 klTAM 
b-«V2£r 
Mti? 


b-«V 2£«0 


bHC2£ 
b<Su 
6HS012 

lilir 


( tjH A 

,bMC2l 

,uhnv&pt 

, f«HSU2 1 
,bH‘3Ul 3 
.OHS* 
,bHS2Dl2 
t OHS 2 4 


b 4 OF- 7 0 1% • bHOH T 1 
OHUI •BHieLUl 

bHOOELT2,bH05UT3 
bHlbOF .bHlStPLl 


bH 7 N 


,hHYN 


bHYCM ,bH2CM 
bHHPF * b H f)L L T A H 

b-m * 6 H V A TO 

aw 1 :t!&Ri!c> 


im 

141 


l :m 
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* * r 




i 


« l*9-> 

. 1S.T 

1 1 ' i. 4 


. 1* 

'* (111./ 

04 ti ink-it If * /J»« j 

bH^» y , » »i *- <i X C 

,1-iy 

b*M ,R # . .< fpy 

on 1C .< nun 

OH'f 

OH If. L J i 

b»UK ■ " 

t)M-» . 

8"P>A 
6 m n l o 

6 M.jfc 
OH 


:iiS> 

.1 W 
. » - 1 

• l'.i* 

:iUJ 

• :*>8o 

• i^n 

i 

» l*.* 3 

• i 1 j 

• 4ft s> 

, him TO 

• SHf.j 

I 0*«I \ «> 
»*>»*! T ? 

• 6lM» ? 


:ii»f :iw 

:iK| ;lt: t 

• iibi .1..47 

,i7U£ ,*oo7 

.ion ti 'jr* 

• f ’ 2 % »i 5 «i 

• 1*87 .151> 

• »iOw> 

• f 9 i 7 » i *» 1 8 

:t«it :l?« 

• lo»* • 1 •. 39 

• m v * ? o (ftMwnrr 

• OlKt ,6*«PH 

• HH It j v bMl'tS 

**»*<H1 f O'* | N 1 

f OH lH h, £ ( bHfwI 
» b < f M ,bHlMKJ 

.OfUtlHA ,t.HPW 
o«^PHI ,6.«0PH.'A 
o*lP «bHN | 

o-IMPC 9 - - 

tHU 


S^ic 3s: < - c »»:a3?t 9B£ :ws « 00 :‘h5^« 

04T4 IL0Cir.4» ,N4,af r ,lK»/ R CW ,0MM ' 01 .<••<**< 

1*47 JiJlj !}.*; 3 'jfjj .^<.6 

:is?J ? i : :s« ;!«? 

1».S8 . ;f n ' ► ji -,T, flub*. ilhHj 

ii; m ?i m ill I if : 

irit * ?*H •*!?■* ti^«, Jt 75 $ !t ™2 !*{*S ' 

i*w / 

ItJ.O 
lrt Jj 

oui a<u 

AT 

sn 


l* 


ii 


?7 l 
8 


8 .'4 


•i? 

IT . . 
W«b 
1753 
. if 1- 
. 1913 
. 

. 11 JS 


.I'D? 

• ms 

tib 
f i 1 


38 

.l**4j 


f 1750 
IN* 
1^3 


OJT} ’.fcH Co JoJnhcask/* 4 * 

jATA L UC< 1 7b) 

«SCK oat a uiviru 

8HINUFL» ,*HNMUOt , b*lON8SSi tbnr.FRtfJ . 

g£f C ' i !«'('*. MOr ' •f'^’Sn 001 ’ 6 '‘■'"OOE 

U.J. ueo.lWJ^MfWa?) • """■ w • 

lilt ,1,5 3 ■«?!• 


i »si, 
. 18 J> 

• l tin* 



# 1848 


.8»'*O0l 

.1*46 
.1057 
fib 04 
*108 3 
.1 7.b 
*1 7 
.1730 
.1741 

‘MU 
:iSil 
•AiU 

.18 4b 


,6 M S)fN00 ,*»8SVH00 .bHS^HCO 
.bHOUTHOO.bHPQlS 


:no 


m 


,1894 till** 

AUt ;i, J io 9 ;ijh 


Orfr»lAY(TUL A, t -, W ) 
pyribHAM rniAfc: 

Coomqn/cont mo/ i cunt p»contpi. ico*it ^ , icont 3 


bHNPTS 

bHlFLX 

.1934 


[Hit :!W} 


A-72 


ORIGINAL PACii >: 
OF POOH QUALITY 


-2)1#2#2 


KtMBK 

£aIL°AU?SPR 

Continue 
SJOHOUflNt *ors 


M I I l 1 i 

Input required 


p t c o h p u 

l«tn^ IFfcUN OIPCON' 


T A T I 0 N S 




9*2 TSl 



* 5J* iXOTf F t DNt,., f xGTff' ,J NO 1(11). 

:«s»n is line 


fl»OH! Mill 
* * * » 

9(92) , 


H it £S ,C Y t !,*!!!* Li u lil •«5 c 5 , ScPPt , i S5H iX5 M * v cM t 2CM # 

ii*t t. I *1* * MW C |OEITAh, ;P. ti.niwLvs.xs.ts. 

2Scr t ?S * 0 4*5 •rf°S S i , lfr*!!l , i 0 £ l Y{*fc5i^J»i^pAoi!AL^MOi., 

sfcf A.H5 if, rA , i. 0S » ' b?5[’l To.xtn.MTu.vxfo, 

jrAL^H.nLt A •-* JPlil'JN. 

C JHHUN/ UNCOF 


*& 2 i 8 s^ 



INPUT REjjU jRtl)_fNQP IGE AR 


RGW, NGlJ, 


PG 1 J 


COHHON/LG 4 UTS/RG 11 , RGl J, RGJ 1 , RG J J, HA (SI # VAXLE ( 9 ) 

OUTPUT GENCHATtO 
“ C • G . 


SsJpSi i ?.a £ u 

PNIPUl - KOM KATt IN EARTH A 
CJHNON/AUTSC/fK.TC, TDX, 

U?AS^ 2 i:&llefiAS:AS£} 2 S£:S 9 iin$SB:MK£ NM * 


RELATIVE To RUNWAY C 03 90 
IN RUNWAY COORDINATE SY 
RAYt in Runway cooroina 
AXES FOR P-Y-R SEQUtNC E 
EARTH AXES TOR P-Y-R SEQUENCE 


NATE SYSTEH 
T EM 


« 


SYSTEH 


A-73 


Nl*A, 

K.N.MtOl, 


•'tit < A i, -.A , » -« i,uC, NU,*H ft , M'l.OilC.N 
IHkSUfML^Uifini.N Ilia NU<j , N T 0 A ■ N T U*l , Ml OC , 
cJJJw.JJL, 1 *U,H'.,Nll* l.HOHtNT.HA L<|N, 

c )iHON/A <r ►'►€/»",/• ,v« m /• oi,pf loui.pHfpji, 

i V'. I V A'J , I. Vlr* r l , IP. Cl B.I.O*, lN.UH,M(. S, Wk.Hl A.Ht , 

2H t f , . , f • ,»H. » l |.» kffll , I * w | * 

JalPha, , Al »j.,Aip«- I .ot Ilr.utLAuifOrt* 

CJHNfrt/. I AUl/ *001*1 .but 1 . f iHel. ALPOOl .PwfjT S If I 
CONNON/ Aul'.IC/AlPOWlfUOlS* ,CLHH, AlPO,L&P»,0ei»N 

OTITT •tlAMVL tu PUNKA V COOPOI 

2 


POSITION AfiO VttOriTr wtLATlVt TO PUNNAV COOPOINATE SYSTfn 

logical .hti.smt; 

QlHMtSIO't Utl f a I 

fc*tt i 

•|t«»Y AUTJP* 

9»%. 

y Lifs « ri * t > vi * ic & 

t <>Yb?7T 

Z 4* 4b].* (XL 7JF-*bP| »'.bJ J*7GF’F 
XP0l»®(.;i*XbffFi*fcOll*/CffA l 
YHOi« fb JfF. 

i<ui«po ji*iGmi«Pbn*/G7FFi 
mh«-7k , 

hhoi»-/p); 

£UL£R AnGLc DC*. Ff>*» PITCH, ya*. POLL SEOUiNCE 


b 

I 


771 -HOP) rPCl 1*ZG77F 


psipni«w. 

IFU1.-Al7*AL7».IT. 3.IOO TO 1 
(sjpftWLirsi/ ;u*ti i.-al7*al2 

PHlPyl' I A < fc *A <7 . 1/ AH -In; 7 FS 
IF| IPP.£ I. )( ALL A"TPH1 


L 0 


1C TO •/ f T £ - H I N c 


I 

)/lAil*(l.*(AN?/AH2 )**&)) 

p « o b i £ h phase 


INPUT Pt OMlPtOf F‘»Oi 01 PC OH) 

fro 5of. r L7 Hp^Iaic*. off 

Hr Hi>L AIT Hunt 

NF 1 Nil ( «j A Til A TO STOP AT IND ,F GLIDE SLOPtTNF.l) 
*HF, H*F - IMTIAl rfAiJ.', 0» .»■ HtO TOuCHOOkN FOlNl 
IN H J4*AY CUCJHOJnAU $Y$TtH 
UcLTAh- AlTIIIul A lOV. «BT T OH OLO H00E 
<P - I IP ACT INOICA10H 

Tl - MPALT T |M t j; T » IT KP« NO TI NfcEOEO 

NL B I - IliiCATCP To STOP AT I HP., ft T 

■A. .TC»* AT IMPACT 

vs. »s, fi - sunka y rf T opping conditions 

VAfO - AlhSPttU FOP TAKEOFF 


ALP 

Hi 


■ >, if - j urrigu oiihui 

0 - A I «• SPtt.1) Fop TAKEOFF 

i-TO- AtuLt 0» ATTACK FOH TIKTOFF 

• altitujl a i , o v l punmay To terminate takcoff 


INPUT hcUUIPcO FkOH LbtAPTOlPJOH) 

OELTAi.U.LT A t . Ot lT A 3 , ot L T A b , 0£l T AS - T |P£ OET LLC TI ON FOP EACH Gt AP 


°*'ginal 

0F POOR 'S 

* quality 


PAOt 
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fw n .iV V 


OWGtf.Al PAi . V-* 
Of POO;? quality 



c 

i) 



c 

12 

10 


ll 

il 



ISr*Jf f NLH 

•Ihe, hoc rr, nst 


?Kf 


lUlRCOH) 


F UgcIf ’,ht !h?» 1 u H 7 *. 

f 1 » ♦DCLfOHM l&o TO 13 

m khim 11 


CALL C NO 1*41 FAILURE LOGIC 

SAIL ENGFL 

MITCH AUTOPILOT 


jig 

lFMP.t0.tlGO TO U 
o ;i I«t,tiST®uT 
F lUELtAI t) . GT • m • I G 

UNT INUI 

AIL TLAAtUKTAV 


IGO TO 12 

SAIL FliRtUMRY 
[ALL f L A<*.i i IPP I 

CALL LNvlNc F A (LURE LOGIC 

8o L ^0*'M? AU10PIL0T 
GU TO !* 

«M# i 
TI.flHL 

iM*lKl f M t llGO TO 1G 

go TO LADING poll 

FjftHi! { I it, lOHtNO OF GLIDE SL0P*l 

Wr*' 4 

wVITt »o.l7» 

FORMAT <1*4, tlMAlHCPAFT HAS iNPAfTEOI 




WM 

G L 1 


U E SLOPE 


vn 


INPUT HtOUMlU FOP GLIDE SIOPEIFROM 
ML 0 IN v w||AL VtLDCITy DOWN TH 


- 0 ., 


OWtlj t^Ow'lN V 
Ot SLOP 


- AlAOGlU t^MOW IN VI 
,** >GS - GLlOt jL GPl cLlVAII 
lL Ph(JS" LU*EF- LIMIT on ALPM 
AlPHOL- IJMMLA LIMIT ON ALPHA 
TTO - JuilkcO 




SLOPE 


AFGlE 


HCG 

OELEPS- 

PFH 

tt* 


PF Y 


- 8J 


jLiUil) fHNUST I INPUT ONI Y IF IAP GREATER 3R «JI 
Ui j T AtlCc IlTn.EN WHEEL HOTTOH iJPFACE AT !.G. 
ALL^w^A^GOlAJ^PKOR If. GL IDF SLOPE VERTICAL 

A ? t F tt 0 TaV.K CONTRIBU.IQN TO MET 
GOIO CONTROL SENSITI- ITY 

0hLlJ AwG posit\on°fwom or{g^ 

ACK CONtPIBU'ION TO 


P 
If 
MHN 


OELSIG- allowed ang 


Nl/ONTAL 


SLOPE 


»E F tt 0 


BACK CONTHIBU'ION TO MPT 
EULER NOLL ANGIE FfR CROSS RANGE CONTROL 


PHIC - CONST AN 

INPOT FR0H SOF 2C0TRC0MI 

VG77F, RMGASi AMASS, GHFFF, A RE F F f NGW7F 1 1 Y&W7F1 
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UU (A 



7 b 


7 S 


71 


c 


'‘""Mi L Hi*'W'i* w ” 9 ,6,,r 

■ifrri, re ,/ mi, fowt 




Input ffof lgia • iuipcomi 


ft 


il* it MlGt l JP£ 

H I *«• *T|Al vU«*Cif t t 
P'^uJ IN OiIO. tlOH 
»»A » ImiJICaTop 
im A’l r,i : row yao 


M»OP 


outhjt r.dkurAt^u i» juu{ lope 

•OtlLl -tow * Y - 

. o -nt-I-to A|w. 

JAP -P- Mil. H P»|A . 

CAHMPP-f ci .«( PAIN AmGi fow tfl 
-M* IIAU M«c iU*t AT yAQ 

ft: 

l < -IIM AT Cl* ANL' IP 

OP •U*U. AT (, )•# AMH |B 

ThCIAP - t JL( * P T •“ 


fro 

H,.» 

WP 
*«t A 
H t 

tjini 
H» T 
MP T 
MPA 

PT1UCS 


:'J‘ :J -*8 

T A M. 


t.)P A'l 

ITm am 
fHW.S? 


ANGlr! row P- iUIPTO GlIOE S 13 PE CONDITIONS 


•J. unu ul l 
- ll » T AM. c To GlfjC $10 


ft? SLOPE 


ALTIT 03 C 
JPi GPli.lN 


n»i»m.c m dkUL iCJPt OBI 

V 2 c , »!l cSk Uop^ioini ' 1 n l cHo! c 


A 1 1 ONI 3 


- «-L* 
-f(J _ 
• TO f A l 


l‘>‘ SIOPC HOP I ZOm T A l POSITION EPBQP 
upc HOM.t/oNTAi position eppob a 
angle 


gl 

- A i A -lOPC M i‘! I /ONT A 

• )t *!'»» m toit p poll 


U 0 OC 0 


l A P » l 

ti * 1 (. 7 f 7 -JU 

T 1 P 1 » ►-/, ,* 0 f G 4 A 0 

IMAM. IV. | ,L| .QclVt IGO TO 7 i 

T* 1 P.'*VJ» , T ThP; | -KGPAU 

TPPJ«V • IMP; 1 -fuNFFl 

IX ) yj- T i f 1 1 Pi* I <P( « v l* YGW?r t ♦ TMPJ* TMPJ) 

G 4 MNP' AT 4 N|-T 4 PJ/THP*» 

GAHPPt»GAPHPP»PAO 0 lG 

Op«.S»PHOA-« VAU» viO 

Cl 1 - »AHA<> ,* w p| FT/ <QP«AP£FF) 

S-T/«.» Al , t . 

Q.l£ 5 * • . . 

n r 9 i i 


wlfcp«ClP 
oAll S-C .1 
A L Pill s * Al w J 


ZipBAfM!? 

Call sac . 

P«Cl 
l s. 

JJpftfpp 

Conti nog 

a B' JJ'.Wl FF 
-• JW«A p| F F 

p v» A HM P ♦ Al POL S’OlGPAO 

T T J « I L P • * l N C GA HH PP I •l.p»COS IGAHMPPI I /COS I THE T API 
IF ( SmT c »G 0 T (i 71 

Cl*' IAHA ijfct FF * 0 F •jINIGAMHPPI • TfO’SINtTHE TAPI ) I 
CTCQiTGAHHP* > »f| v*APtFF) 
i|-. :* it. 

Go To f O 

hg .tAP fr-er,*!* tan (THP i I #MCr 
PPT SqwTu AG F>. -WGPI •• :*/G77F»ZGiFFI 
M£A **P*UtLLPi*ulG^fcO 
Hi •MGCTF-HuG 

MtOi WGFF*- i*«.,FFri*TANlTPPlT 
MET*HI*W* Oi 




original PA 

OF. POOR QUALITY 


ftliEMnUffrNMnmiiftCN 

IF UlPUt >.Of .ALP MOL »ALPOCS>iLPHr 


r ;PC5*H|T 
ALPHTL 


l 


a *«*;<• 

PHlQFS»-PHli 
GO TO F* 
PHI0ES«*'H|C 


II0CS>»'HIC 
CALL LNGINL 


f AtLURl LOGIC 


. AUTPH* 
)PILOT 


TO*™ 

i * t 0 

iHJIW'aS'KSWI"* 

TMGlfc OF ATTACK FOR TA 


TAKE OFF R 0 


INP 

VATO -A. 

Ai PHTO- ARM t -- - - - 

Hi -ALTITUDE AHUV* NUNN AY 


L L 

RCOH) 


T^TCRHlNATC TAKEOFF 


yaffJ NB uT * boh su^,;<ul^^,0 * , 


OUTPUT 
ALPOcS- Oc S 
UP -PHOMLt 


itEU B Au!.tfc OF ATTACK* INPUT HHCN UP GREATER 0« "Jl 
H PHASE indicator 


MVAFFF.L1 .VATOIGO TO 11 
A P »#» 


lp jl;« alphto 
IFIHP.GT.HjIGO TO 21 
-ALL E NO Jllk f AILUHt 




LOGIC 

0 PITCH AUTOPILOT 


■nGFL 
O'* i u P I T C 
OJtSH* j . 


GO TO SO 

FOHHATI in? I S»! •iHALTITUiJE AbOVl NUNHAY TO TERNINATE TAKEOFF/ 
i * 5HMR * t i!>. 8, IoA.OhMS • El*.* I 
NDSTE-0 


eTurn 


LANOING PCLL 

INPUT PEOUIHEO FO» LANDING «>OLLlFRCN OJRCOHI 
SP - TIME AFTc** HPACT TO |f« §t fPO ILERS 

RV - UHfc AFTcP HPACT JO KL 'tHSE SIGNAL 

CM - tint AFtiH HPACt TO CHUTE SIGNAL 

-4K - TIM? AFTER MPACT TO «W*Kc- SIGNAL 

I : Mr 


tine 


INPUT FROM S»OF 2 ( 0 IHCOHT 
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XVXXV>f 


• 0 


• l 


i 


lb 

: 

r 

it 


OUTPUT GC*w*ATc.O 
IlOtM IltMi 1LS* if 

lAPafc 

n»fiHC-n 

f 4 m aft* 

F I It'.gi, T »PI I i- «i. 

" tfWrHif 


I 8S» !• !*•»'% 


m 


F h« ICC TGSl 

Jp*. I i. . iriti *oT»*km 

o TO it 

I CALL AufPPli 

HWftKC ttlLUNC LOGIC 


IKKII A l-A* A > V)L ! A ! t. 0 «ITm T .Hi 

i,; i^2v i \ua|S?i6%l7S A ?:J o SMct omw c ” ditxo ” 

NS t «U f - M). CJA if®UT r . 


G»Nt*»TlU roil LGCAP -NO AUTS 

. . *U I* 

0 19 I»l*Ni|r 

n 

f « in.l r.fu«i 


output 

urn - 

W TM.LT.ThkiIGO 
I'i.NllPUl 


f I ip.i 

2 ,iM 


•t.NifluT 

J < X » 


TO It 


Oft 

CALL IMG I It fltLU4i LOGIC 
CALL CNGFl 

p i r c 


autopilot 


IflPlT <L?JIP'I FO*' PITCH *»'IT JPIlOT IPIMCONI 

oiLQN -mjhinAl hq«i/unml staqilIIi* tkip position 

«f Elph- -/AT • »vlO UyK Ftjrf ZlPHUf 

OtlALA-vy-f.jy UlC* 0 Pi AlPmA i;oh TP 01 

P-,H -PiL'Jl StNUlUVlTF IN ALPiA >VtP CONTROL 

T * I •Tin Aftr.* |«»*A*.T AT PH 1 1 H HOSt OV£P OCGJNS 

Ot LQF IlLijO f)'* LNH OK VJ»_ OVLB 

OUfOI-HOM /ONTAl '.TAPlIZ: 

QlLJTG-n, V ih^AL jIAml!?! 


}-HO<lIt'llAL * II 
-LuP. »• L 1 N | f CN 

L I H I T o-l JL 
-Pp.MLIM »>hAj£ INO 


NOSE Q VI 1 

. ~ WAIL GOHHANO IN ACHIEVING DC LQF 
ik position fo» take off 


INPUT 
U- L T > , Ac'*hB; # 


F MON S’lf ItUlPCOMI 
AlPHO 


OUTPIT O.NlPATlO lit PITCH AJT)PIL0T 

8^.i2c:2^i?^r H 2?f£« T S8sHtR4 

ALFUOl-iWt OF CmANOc OF ALPOES 
Al Pnv t - AnGI. t OF ATTACK PEL AT I VI 4ATC 
ALPMl T-T.JIAL AAGLE OF ATTACK EMkOP 
U.L AUl-Ul ilPLO HQP129NTAL STABILIZE* 


PIP PUS IT ION 


CftHQP 

POSIT lOM(OlRCOH) 
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u 


VY’v 


TO 

V V® : 



OffliGtf. VL pr < 

or POOR QU/» i 


o 

nr 

9k 

91 


99 

9*. 

Si 


18 U 

4lP0*AlPJc.S 

i^W*L/rilCO TO 9f 

P»miPSM? 
jLIUc-UlI ICc 
4LPHAt«iL^H0-4LPJCS 
IMClLfS.Lt .i.t-ulCO TO ?b 
itf-OUl* IAiPU£$-ApOiNi»/OClYS 
If « AOS « AL^bUil .*T.IlPULIAlPO 
43019; * 4LPJL i 
4L0U1«ALP0'U 

*L PHPl . 4I.PHW1* «A00t.T. - ALi 
ALPHE'* ALPHA,.* If AlPH* All 
OllOOE*pilUN 
Slow •SjONl 4LPH4f I 

If UHSUlPMt II .1 L. Of 14141 Oil QOe 0£lQN*PSM*AlPHET*SIGNN*0El0C 

\a in 


1H«w. 


ilPM»Alp32£ 


|F<luiC‘U-0«JiyP».0l .W.ICO TO 94 
Ot UOE'Ot LQf 



♦ f PPl 

•Oufri 


ot l oi*i) time 

l.J TO 9i 

OtLUOl *uaol-T«Pl 

|Fi puunZ.ic .otiun olicoe-uelof 

co to 9^ 

Ul iQOtMJllQTO 

IM0U00l.ll .OtlQU lit UOt* Ct l Ql 
Y44 AUTOPILOT 

pfb I WW fc *>?M , iacE 0 »oS A Si8«<t* LOT€0, ~ 0 " # 

UtlUA -SlJt blip CkWtiP AILOWIU 

P$* -PILOT SENSITIVITY In Slot SUP OVER CONTROL 

tffpsi -mail reco rack fop psu 

0P*U - tUL t ► YAw 4 LlOW£n 

PSPSI -PILOT SENSITIVITY IN LUL.k YAW CONTROL 

OtlMl -LORtR RlUOlr LIMIT ON OELR3E 

OURU -U»»<»EM KIOJIP LlMtT ON OEwROE 

I4P -POultN PHASE INOICATOR 

INPUT FROM SUA i COIRCOHI 
0cTA0,eiT4Rl,PSlM0 

OUTPUT UlNERATtll BY YAW AllT.lPlLOT 
0tl»N -NOMINAL WUOof» THIN POSITION 

8^«T:^iL SL hor°Sm°£%l88 OR 

OuLROt-OtSIRLU KUOUfR POSITION 

Pi i £ -tJicR yaw angle position error 

PSlt T -TOTAL EULER YAW POSITION ERROR 

CALL SACSli 
Oc L RN aUEL °NN 

10 lJ - 

UcTAETtUETAE«RFD*OETARl«R400EC 
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*»s 1 1 1 ■^su*^n*sf*^!*i»o»*»inoc6 

JclRUE »UtL> W 

» I kAU « ^ A 1 1 T ) , r.r , ih*SlAM)(LPn£ *Pi.LRN*PSPSI»PSI£T 
F 101 l-'J-.l T .nkl»>L»il|.l40f«UU4l 


f «gu* fi’.of .uilrwt Q;i»ut>0kuti 

f l Ipw . Li.* TCAlL AufPPb 

POLL tOlOPlLOf 


Imp jv nlqux*iu row *oll ai topilo? (oipcohi 
hf phi -vjli Am-.ll till f Lf.onic* 

1 PHIA -Kill A»J. Li. AlLOPtb 

PiA -WILL'! S.N.lTNtTV in KOI. OVER CONTROL 

OtLPl -L>tw MltKON LIMIT ON LU^OE 

UELPU -iJWP t P AlLf.®ON LIMIT ON OfclPOt 

IIP -Pw.jhLlM PHASE INDICATOR 


PH IPO 


Inpjt n-')* >o *(OIRCOmt 


OUTPUT OLUlPAOtO Iiy PO*..L autopilot 
H it - ROLL AlKLk lP^OH 
hilt -tjial w cl l angle 

ilPjt-' 


*F VI Ut NON* position 


IP € IAP.Gf . JH.1 TO 1 m ? 

PNli«PHfP »*PHll£S 
PNl«T«PH|t*Pf P nI»ph IPU l»RAU0EG 
ir ( ADS TP hI. ! I .1 T .OPHIAI0O TO 1U 2 
)*LP , 'c.*P“>A*P».ItT 


OiLPOt* P*> 

W.i: s . 


IF ( OtlPOE.l T .OELPU ULLPOE-OELPL 
If (OELPOi . (. T .UtLPUT DlLPOl • Ot LPL 

ir ( ipr. m » « i Call auTPpt 

CALL THPOTTLC AUTOPILOT 

CALL TmA'JTS ( IPR) 

tT 4 A K i AUTOPILOT 

INPUT KCCUlNkO IFPON DI^CO*! 

MQCfll- HARIN', CONST A nT ro> SWUT I 
pj - *>.w Cent .k i » f )w cont. >ll‘o drawing 
DELTA*- p 4 R ClM SPf.U EPPO«< AlLOHt'J 
0H-.LJ1 C II -ACCELEHAT IJN TO ONcGTRIII Ot»IR£0 
HJlTp- LjHf* HKAKIng HO**CNT AlLOHCO F0 W STPUT I 
•H JU 1 1 ) • UPM> hRAKING HOMLNT AILOH-O FOR STRUT I 
NJ ( I ) - DORKING 1UH-.NT INITIALLY ’CAU 1 N 
NSTPUT- JiimtM UF lNJLFtNOLNT STRJTSCLbcAW HOOT 
PZCH'Til- HALIUS Of II'ES ON l*Cm STRUTHGEAR HOOT 
MTIRCSTII - MJHOfcft OF Tl^CS ON -ASH bT 


LS ON 

HOHlNTiIT - hi)H:uT »)F INI’RTIA C* SlNGlt RO 
NHtcL ON L ACM STPUTILI.EAR MOOT 
OlLTAIIT - TIRt DEFLECTION FOR CA3N GEAR (LGEAR HOOT 

UUTP'JT GtNERATfcO 

OHt&TR * I ) - UtSlREO RM£Cl SPEEL TOR PO FOR STRUT I 
ONTROl.lT - OtSIREU hhEEL SPElI DECELLER FOR STRUT 
OHtGTLlT - LMfctL SPLtU RfiUR FOR STRUT I 


MUtlLGEAR MJDT 
TAT ING 


A-80 


UOUUUOOUOtXM 


DMQftAL v. 

OF POOR QU/%LIH 




MB ( I) 


• BRAKING MOHCNT FOB STRUT I 


*2 

O 

bb 


dl 

bb 

bf 

bl 

bB 


o 

* i 


OUTPUT GLMcMATtO FOB l GEAR (IB GXRCOMI 

ohetii.ii, 

INPUT Bf GUmO (FRON l GEAR) 

HA I II .UNIT < 1 ,1 I .vlxii (I » 

INPUT MtQUlNEO S0F2I0IRC0P) 

AHASS. FIIFP 


0 »b i«4.tistwut 
FllrtS.Ut.llUO TO 


F ( 
Be 
GO 
Htf ( 

h 


Miltti: 

u • | 

l*iii 
0 Hi 

itmii.r. 


*bJ,b4 


b 1 


I GO TO bb 


t L.-P oI/IB/CROI |I-0EITA(.) > 

0N£ GTB I I l *¥ AmLl ( 1 1 • TBP1 
OH IPfJi ( I) if «HfP*TNPl/ANA5f. 

OHCGTc. ( I» *OHtT U, U -ONCGTR(I) 

|f (ABi(JHyuT£( |h .IT. AyS(5^LTAW*ONEG T RI DHGO TO bB 
H 1 1 1 1 * T HP i • .HA ( n-UNCC3&*M jMt>r ( I) •NTIRESU I » 


GO TO 48 


NH(() tK&C t I > 
GO TO bi 
H 
6 


(HAUI-OHT HOI (IT* HONE N T f I ) *NT IRE S ( 1 1 > 
TTr_A 1 1 1 #p HE CO J • HUM^NJ (I) •NTIReSUII 


Nil II»THPi» < 

GO TO 41 

BJ ( II »THPi . ML.. 

if (no( n .ti.NOiJ iiihu(U*hbl7:i 
IF innui .GT • H'lU ( II IN(i( 1 1 r HQU ( I / 


1 


)NT iNUi 
■\ IPR.ta. . I CALI AUTPR'I 


CONTROL 


RESPONSE 


INPUT wtQUJRfcOURUH ni*CON) 

OtLPO - CONTROL VI* FACE '« FLtCUOM INPUT AND OUTPJTI 

OlLQO - CONTROL iUI'fACt Ot M.ECT f ON ( INPUT ANO OUTPJ*) 

OELPp - CONTROL iUHFALt OE FLECT ION ( INPUT ANO OUTPUT) 

JELHS - M.JpI/ONTAI 3T f >IL I 2t K T * ME RATE 

OtLRWO- R'JUOL P TIHt RATE 
OclA - AILLFOH TlNt *AlE 
N t 3l - EN«]nL TlHf RAT t 

H - NO. OF L NGl NC j 
OELTS - H4«IUH INTtGPATION INTLRV 
Nlll - TM>0TTlt POSITION TOR fAC 

9UQOi«o-;lhs 

IF (UlLUOt.L T .OtLOOIOELOOl* -OELNS 
J£L40i*0tLPR0 

IF (OtLHOi .L T .3ELROI OCLNOl" -OELBRO 

it \ OEL POt • l T .OCLPOI OJ LPOt«-DELA 
1*1. IN 

0 TO 51 


AL 

H INGINEUNPUT ANO OUTPUT) 


00 50 1=1. IN 
IF (N0( III5fa.b9.bA 


IF(PNOESU) >52.59.59 
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if iwo< i i-ni 


MO* ll»* -NtC i 
GO TO U4 
N J 1 111 *N-.0* 

64 ,fO 
Mil'., 


GJ TO 74 
win*. . 
wui (XI * J. 

COniInuc 

30 ss I * ; 1 1 . • 

PNOlM |I"||||I 

IK 1AM ,i Jtt 'JOl’OCITUt .Ot.ABSIOCLjOt-OElUOHGO TO bii 
^LyU'utL JU*L£(.0J1»0CLTS 

J* lQO-°J?L J',£ 

;► (All,! 0 c.L" 01 * 0 lLTS> ,Gt .AOSTOwL ? 0 E- 0 tL« 0 !IG 0 TO 62 
J.U-U*jZL^u*Ltl»» 0 l* 0 €LTS 
0 J TO G I 

!► UBS IO‘.LPO;*GELTSI ,GE . ABS I DEL P J£ - OUPOI) GO TO 6 * 

i5 l W’uP n * Iulul 6llU 

OcLPU*OtLPOt 

yo tr 1*4. in 

if taus cnji < n*utLTci ...t.tPSTwom-Ndi noo to 6 b 

N' I > *M( I)»r< 01 (If ’OfcLTS 
GO To hf 

> CALL AuTP.* 

«L TU*n 


icm auTP.w 


»Ufl*OllT iNt rLAWclIIPPI 

C.ITLPNAV. A'.XW 

f L a h t 


inhut wlgmiwlimfpum niPcom 

- INI? 41 >drCTt,» TOt»GM<))WN CONUlT 

- i . 4 it At jtiKCUO Touch own cunuit 

- lilt At ,l.CH*» Toji.miijwn COWOiT 

- lit At ,‘tKLT£l T OilOHi) )MN G ON dll 

- lr*C«|w|fiALLV >CT K-F # m*F, K*fO 
HlO. V*I d, VHlI) 

- jJSPtCftO LANDING DISTANCE 

- Of INCPt <fNTS/D{. . IN ALPHA 

- LJHC*- Tm*>UST LIMIT A L LO 0 IN FLA 

- UPK-tf T HPiJi f LIMIT AiLOMtO In FLA 


ONS 

ONS 

ONS 

ONS 

, MRFOl TO «TD, 


• LARCH 


- H4«, TAIL DOWN I 
I- LJHlF LIMIT Of. A 


IT ALLOMtO IN FLANt 
NTtHFERiNCE ANGLE AT TOUC-TOOWN 


AtPHOS- LJHIF LIMIT Of. ALPHA 
ALPHGL- UPPLA LIMIT ON ALPHA 

INPUT wCOUlRcJ* Fi»OP L&cAp-UIRCOM) 

RLT - -NJNNAY LcNOThCUSLO ALSo In LGlARI 

EROta - RUNWAY tttVATION ANGLE IN PEG (USED ALSO H IGEAP) 

input KLCuiwtOCF^uM snF 2 -oncoM» 

AMASS, uYNPP, A- tFK ,wTPFP 
S„AMA,r.AN/u* V‘,m 

COMMON/ OHO OH/ UM 1 II JHI.AHASS.DM? (2 il.ARtFF, 

►OMJ <!*«» ,UYNf'P,OMlN C‘»«),f.AM/D,OMl.( 391 » , 
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r 




common/ jIkCoh/owiuu* •c'jSf* «•»" • 

fas; MSS8C: KW > ? ? ;• 

■ • lUM»fe *lHKsK 2 ** ' * ’ 

INPUT • tr.0l»fc0TF J *OH AUTil 

*«, IKUli HMli 


0«lt<3 I. 




XRF 

MRF 


Gt K£P4T 

r LlL 

- AC f UAL. SlLI 


OUTPUT 
- ACTUAL 


ACTUAL 
TO 


: 


xrfqi * AClfiK 

MRFOt - 
T A 
TH 
0 < 
liK 
AX* 

AH* 

AP 


hir?plrtUni|i^S81KiS! 

«-U WUCMLJONN ScOUOiT jUN, 


ttt?? -o S s 

tuCTt'l TOUCPOO-N CONDITIONS 

JOUCHOOWN * tUN*IjJI[JI 

TCUCHUONN t^CUN.MAlNT^ ITQ 


T”*3?W3T«0;a ?o°; 

ll SBucSnoin CDN 

HaPO- Al-^tiu Fl^i«Mf RLL RUMM^Tf 


- «Ncil ASt OA '''»V C tt 00 2 V 4 T?H H OtJIRLO TO°HCut T M?M CONSTRAINT 

- * 3 » 2 ndc 5 n ii 0 N T in^«! WulHnSah cdJoitiuJI 

! 5 fc oulp ?8 AcctltRAf I on T y Hcd. 19 VS? u ?S m ■umSaI 


- <cOUl«cO THRilS 




1;? 01S : ^^rss^rrHflK.JJiSbsr 


I 

1 


10 


11 


1 «* 


CJMMON/»Uti»C/*l. POP.l, DOES*. CLl.M. cm. OEIRNM 

LOblv'AL J*<I i 

Xjtt MllilG.OCCMO/»F.aW»Wf rt ^ ,lMM/ 

IMliv.t 1 .lTCO TO Id 

||R*1 

XVF * XT 0 

HVF«HTU . 

<UF0l = v*T J 
H^FOi*WMTU 

T 1 P 1 sX^F-<k 

1TO:88KS5 mdi 

; 3 Jr:r/R n .*iS? 0 :>THPR..M.«To 

T««I. • T rtPl/ T MP 2 

WTfi:i 3 rK:s:u 

! 


JeUIO*')'" .6I.SLT»6° to l. 

X <F*xTo*JV 
HPl« XVF-XV 

kRF * x T U* VtT -10 

h3fJi»T NP** TPP l/tHPi-HROt 


°*iginal 

Of Pnr»r> 




A-B3 


SIU 8 




IMUH.l T . I 0M« A. 
» <F 

fli’l* »•/» - 4 K 

TA» '.MMPi/TPP* 
ir I T«.i- .T h» 
R»®*£.*f **'* i ✓ 


, TO it) 

IGO TO 1/ 


tF IQCH.UT.. 
h <rg:*«s< 
go To i. 

H-IT 0;« - . 

**r 01»HJ »1» THPi/f* 1 1-1*01 
Tmpi«imo;*i m 

f MP**Hy» oi« Hi i • 

(*«^r »>i - jcmi Ji MriPi/({ «• IHPI) 

Am** 1h,» I- -HP till • TPP*/ 12.* f HPJf 
(f A h t » ■ ' - I ilM /M” i k ’0t(« I •lltG&AO 

THi-l V | NluAMt »-l 
T1P2*C0 |t',AM| *. w) 

0 »r JV«UI» >►' 1 ♦ I AHMMHPi-AXRMMPi* /\/GT ?F 
0»-lAJ* A .|M$GA»'Aj *9*0010 


GAHlPO-^AHMAL-tHUtG 

•miN 

Tip2-C mI.,amapj) 


Jt.'#- au^gahI 
T«Pi»ilNI .AHAI'HI 


H-AI,»c*» ).G*: 1GMAT 
MPJtnt it ** >I».(r.«-'Aijl 
T H F •* j A I «'TP*^oS It <*FAOI 

S^TIs.TALac# 

A l " *1 9 h0> 

CALL j A C j TO fino 


CL 1 ANO cm FOR ALPHA r Al 


c: *ci :• ljt jpp*afc u FF 

Oi «C»i*0» IPP'AWLTF 
r 1Pb-.»L G-»AO* lAi^GAHAPOl 

1 TMMTMPSfl i»THPl*01*lHP2*THPJI/COSUHPfcl 

iFCTTH.Lf.TLIT THtTL 

IF I TTm. gt. tu» t TM=TU 

! r I S*T i TOO TO b 

T TCtlTn 

AcPOtis A; 

A< t ( T TH*C,)S I T IFb) -LlMHPl-Ol*TMP? -THPJI / AH A SC 
AMs I 1 T m • »|H(THF , o>*L 1*TMPJ“P1* t HI T MPl* ) / AH A SS 

T«£ «’« Jx V (TAX A- A I AMR- AH) 

IF | S« I 1 T GO TO 1 
A . * T At 
G«iTls.TRiJi. 

IF ITAt.Of.AtlGO TO A 

tTo*iTh 

alp«)lG = a. 

Al*Al«OA 

IF ( A L . L t. ALPHOLIGO TO 5 

PH l Jt S a to • 

IF ( IHW.60.to ICALL AUTPPJ 
IU»N 

F LAME i 

GAHHAOIA^INISGAHAIVRAOOCG 
G AM APO * G AHm a C- E ROCG 


WiotSs J. 

IF I ULPDc. » ♦ G Ah AP( j) . GT.PH) ALPOES'-PH-GAHAPO 


A 84 


so 


60 


TO 


60 

61 

62 


o 




ORIGINAL PAaL Ai 
OF POOR QUALITY 


Bill jVi s lf ; t|JH ,OO,0U,DU f OU.QU.OUI 

S^ jrLUtitOUI 


ENTRY row PRINTING PITCH AuTOPIl OT 0616 


INTRY AtjTP** 

If < P IT CMP, L Q , . ) HE TU RN 


L i N€> ( 1 ) 


i »> i ■ " 

FORMAT ( 46*. 1SHPITCH 
call Sf ru:. 6.PPT6I 
ALPMOl- ALPHwil^f ,|9 


AUTOPILOT) 


CALL 


Wl 

RETURN 


i ALPMWi»^f . n*,rrib 

STOVA-Mb,U£L0N # 6l PHAE.ALPMOl.ALPOOl.ALPHET.OtLOOC# 


rru 


0U) 


ENTRY TOR PRINTING YA m AUTOPILO* 06 t 6 
ENTRY AUTP-b 


» wt TURN 


If | TAwAUP.tO. , 

CALL LlNFil l) 

••Kl ft In.'xl 
FORMAT ( S** t IjMYAm A 
CALL -Tf L( tI 7,PHT7l 
dtTAOl = il. tA*i* c F,2*3 




nt , ljMIAMAUrOPILOIl 
779 s 

(UTAO.BETAO » BE T6( T f OEL ROE t 


1*«7.29»779S 
7.UELRN,' 


•»C TUPM 


» l.Q'JI 


ENTRY FOR PRINTING ROLL AUTOPILOT 


ENTRY AyTPR 7 
IF|»OLLAP.iQ. - |Rf.TUPN 
CALL Lihljlll 
NRITE 

FDWHAT I . l«.H«iOLL AUTOPILOT) 

CALL SIFUi ,3,PPTA) 

CALL sr(W4«l3,P> IE » PM IE T , DEL POE » OU » D'J» OU »0U » 0U) 
CALL STFLI-.1.0) 

R t TJPN 


ENTRY FiW PRINT NG THROTTLE AUTfPlLOT 


l H«» A UTPR 6 


|F < THBOAP.Ly.JIRt.TURN 
CALL LlNt5?I> 


wukmsi'i 6HTHROTTLE AUTOPILO*) 
N^HEiG.dll I NO ( 1 ) « 1 * l . IN) 

FJPMAT Ui*. 9HNCI INI * E 1 S. 6 , k I S • . E 1 S . 6 I ) 
mlTtlb,6c) (TQ(1).I>1,IN) 

FOPHAT (2iX,9HT0UN) * E IS . 6, h <5» , i IS . 9 )) 


ENTRY FOR PRINTING DRAKE AUTOPILOT 


ENTRY AUTPR9 

|F< JF.AKAP.IO.OIRET'JRM 

CALL l IN c. il2) 

HEirCjb. ^ I (MU ( II, Ir 1.MSTRUTI 

FORMAT l,1«, 1 EH JR ARE AU TOP I LOT /2 1 X f 9HMI) ( I ) 


■ ElS.Sf 


PRECEDING PAGE BLANK NOT FILM 
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*1 

*2 

9J 


■ 

u 


CALL UN >C II 

min u. ill * i ii . 

fokhat ( « f a . : m 

mi ft I*. U’l IOHTk.|i * 1} . 
FJ-NAT I 1 r .« . lfcitUrttGA T»>0 
•HHuM*. IIIIOi«Mi!tl (I, 
FJKiAf I'M, i jHCMtGAfl I 
Kt lUt'N 


■l*NSMJT I 

*5. Ill 


til 


• i J nI ♦ 5 jT i 

i • lh.a# 4 tSM.ti*;. an 


CNT fi»y fO* POINTING COHffOl 
fljMV AUTPi* 

j I GO TO 1 1 


RESPONSE UAIA 


10 J 


101 

102 

12 

11 


RESPONSEI 
Ol,Or:i»Ol,UEir>Dl,OllQ0,Uil«0, 


IF (CONT UP. tOt 
CALL LlN.ilJ 
•HI U I 

F J-1AT ( ?«*, i hHCONf ► OL 

cut stflU ,©,p5mi 

CUL “TOtA*(ti#C 

'h&tmvu,** 

s *1) Until. I ■ i * I n i 

FOHUiT I fc W« ,bMNJl x M 1 ,, V<ISl|ii5.l'l 

mlTMb.l.c) CHI), 1*1. INI 

POPNAT (24< f fe»<N i £i4.A,4<tX,£lS,S)l 

•HI TING OF I NO ICATOPS 

KH M 8iK^?r , * lfcTW * N 

MNlfctb.llI UP, ( I 
FJ->«AT (bl< , ivHIM 
C/Hjct (I 1 I, i Hu 
CTHiaili * i , i * h ,, 

sr° 


T UPN 

;no 

»UB*OUMN£ THALfitlPP) 

throttle autopilot 

INPUT PtOUlPLO 
TFt II - FI* Afc«At 
NJFCII- - 

Mill - 

2? i! 


Jttiuiaiiijisvw'jfijift, 


tf^OH OIPCON* 
At r 0* . NGlNt I 



landtng 


Hi 

Skill : 


ILP 

1)5 


Nil) 


UjliJl. M5I2J2, KlJIl’i. K ( 3 1 1 2 3 1 , <(31123? 
<(.ll«*i. <<«.li?2. K I m 3<* 3 ■ KI4I2<.2. «(**2J‘'2i 
M4l?J4i. Kd.11341. K<4 1 3*3, X ( 41 J 2 341 * 

<(-) i22*o k(h) 123U 


- NJMbt* Of L NGlNtS 

- J t W E PS£ SI0N4L INITIALIZATION 

- P4QQUH PHf.s, INOICATO* 

- 'JcilPtO TmkUST 

INPUT F BON sOF2tniPCOHI 
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•NLl 


INPUT T Rf 

TO I II 9 TO*, f 


N AUT* 
on, ltd). 


NO*, NOb, NOC 


OUTPUT G£NLrf*1£!i row *UTS 

TJII), TC, It*. I-’*. 1«H, Iwc, N*. NC. NOin. NO*. N 
NCR*, N j^Aj ML "C ^ N TO* , NT 00 , NToC, «*, *R, KT, HE*, 


KtU 


NBII, NBC, 


CO*iHQN/*Uf IC/TR. TC.TO*. 
lTU*,Toa,f M5I , IRA.lMM.lRCf ICA.JCB, 

2«* .ftP.KlA.Kl t-.*T .NA.NNt.Nt ,NU IV I ,10* .NLB. 
JNL*»,NIP »,hlK ,N0* f NnH.NOC.NTOA, NTOB.NTOC 

Kill NUI ,NU t *»,NN(i,NLN,f«;0,K2 1 K3.K. i K*,KB, 
IN*, NC, OO.N.li .NUII.NHC .NL»«*| NLftr»,Nl«C 
2 IT CIA , NT 0 I, NT OC «Nu* • NOR. NO l 


NOC 


CONHON/AUTPNC/VPyip.VPOl^ZPO 

lVt,¥*J,G*'lPP( ,qn,Cl*,cj», 

1m c f .HPi.HPT •tHICtS, T* ,TM. K«F 
lACPHAl , *LPHt T, lit l An 


I*CPh*1,*IPJ01,*IPhlT.I)IIRN. 

IES!HWEiWtWSiSrtlf»ifi 



NTEGCft Jf 


18, 


n 

1 M 


Y.EI 


NC NO. 
N 


I »» 
I'i 




10,26,5 
SlNGLc INLINE LOGTC 


IE ITT (il.CU.lt SO TO 11 

Mwi-tfPcK.ii 


NJ * N 1 1 1 
NHC * NO I 


• TTU 
tWIll 


ENG INC LOGIC 


II w i 
IT 01 


C.NTOli! 

Jill ^ UK ’ 10N £MiXN£ LOGIC 


_ ILL 
NO I 


• L NSL 


1) -NOC 
GO TO n. 

NJd'tNOMlI 


l F ( i J I i \ °Nt 1 H I’ii 1 TO N 2 0 0 V * 1 R * 1 * * H 11 * * NB 1 1 1 * WLR 1 1 n 


NJI it *w. 
TO 


GO iu .Hi 
TMU ENGINE LOGIC 

IE C ITT ( II .CQ.ll.Ot. ITFI2I .CQ.1HG0 TO 21 



Aa»N(II 

N'li'W 11 ;» 
NL»A«NL* IX I 
N?0»> '4 T 11 1 1 
lit 

on: 

ISMSHI 

1 

NdU*MI *1 
NL«B«NL*4 I ’ » 


I MO E NO iNt LOGIC 


1.1 I NO 11 1 ■ 




M gViiil 

\f lieu » .-U.LINUU 


THPEE 1NGXNC LOGIC 

M iTi ( ONCj Ml |g c |N^IS ST 0A*£0* IT STAYS FXIC3 

??<?M !t*c . IlUO TO il 
CntlNUE 

NJI jl «NoM}» 

if! ci i i’ 1 ' 1 ,N ?i4iii? cl,m I** 1 1 •»♦ t * * *n»iii,nl«i i) > 

,0 *» 

noui>nof u I 

{5» L itiSi*SiSr U4,!h 

m 


Si: Slji! 

Hl« Ml III 
mb* mi »t 

HA * N ID 

wip * n 1 1 2 • 
HdA*NUI III 
N'JO *NB I i;» 
ML‘»A*HL*4| I 
NlRQaMim I 

NTOA*iiTOI1 
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16 


It 


It 

90 


*0 


99 


96 


97 


VI1KI 

IKK* 

»■<: i 


»!»*• 

1" 


o 

istt 8?nje 

1 * »N)4 

2 i *njj 


TMO CMGtMl LOGIC 



sj(5»*n ,f i i » 

11 * . '-U.il NCI ll 
it FSMNLI Jl ,T0IJl> 

<4C ■ ! 1 1 (ll 
NC«IH I. > 

njc*noi III 
NL#C*NLrfl jl I 
NToIrNfQlIi) 

TC* Toil il 

H T * K£ 111) 

CALL CU"10U ENGINE LOGIC 
CALL CtNGL 
NO! l.laNOC 

GO TO U'lfS6|97t^9l t IJ 

GO TO tUL 

I?!i§lli:a:tl88 »8 tt 

no tcT* « • 

CALL TFFS9INOI2I » TO IJ I I 
GJ TO ih 
NJ ( 1) «y . 

CALL TFrS9IN0ll) l TUlin 
TUX«TTU-Tt)l 11 



no 
ij«« 

Gu TO it 
Nil J I > 3 • 




X> A, 


<r 
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1 *. 7 . 








ill 

to i7 


40 




«<• 


r o 


FOU» ( N* INI LOGIC 


Wllflilt It.llGO TO 4i 
0) 41 l * j . 4 

h ji i> in VI t » 

CasjjNut 

iSKiir.ifltflfiHttM 0 .! 1 



NUt 

nufai.'u.n 
«3U»*Nj»U 
NJ I 41 tiiU^U I 

JL^.L ).;|N3I 

\f\ , 

JMICJ 

:«ll frriiiNOui 

Cut t f f J 1 1 NO l*»l 


1.1 INH 

[Cl 1 I .t ,. *1 It 


Mt NGrftVI 
_ ,11 • «• 
W.UN1UI ». , 
IHUUI >|U 1 1 j j 


Blil.NIl 1 ,N0I1 | 

*((>,11(1) f NB(C) v NitU) I 


l.l •(. 

{Mil 

k«u Hi , mnoi.i ,rn 

fj*«Tff)-T jin-foUi 

s*: IS! }*! 

«**I*« UI 

NMftt I .1 
I4U*M i 2) 

Oil «NH I I 1 I 
•4JH«N.1 1 Kt 
•«c •»»- *IL « 1 1 . I 
’«i4d*’ik4f l« I 
’iToMMOli ; l 

«t* *«i 1 1 :» 

«tO*«L 1 1 *i 

n 

ftMl.-xllll) 

WiiWH 1 

* “ lil * TO I 
II MM* 

rfisl 

C<«r».c«J.LM >I$M. 
ClJI.J.ilUUl *.. 

. H r 141 hull! ,ro» zn 

1 1 * i 

ll'to 

00 41 1*1,4 
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0 

ill 

114 

ill 

IJ 8 

ill 

IkQ 

ill 

1 «0 

Itl 

iff 

lfcG 

r> 


m 

V J < 

4 ,; 

t'-v 
h 


!■ < M J- rOllt-fD(2>l*K%< Jt 


• I if »- 


TO! II -TO 12* 


ss 


o ej 
ip** 


C^i .1 TM^IU.tTOfll I 

1 'J 


0 T(J Oi 

jm»« i ttu-tui ii - tu hi 1*11 .-v nun 

2 »i 

GJ fu «J 
N J I 1 ) • < • 

Njl *•! •* . 

f» * ,m,$ loin i 


f JUIM .Mil _ 
TOffM l ftll-TCI \| 


JJ: 

go rt 


romi » ui 


GO 

I J I • l 


I ii 
* 1 TTU' 

|i* J 
i<* i 

GO 10 ii 


T L I 1 1 * TO I *» I ) •(! .-K%U )l 


NO i 1 1 * 4 . 

CUL lN ,|( J.,tOUH 

rodi ■ 


TJUIM 

ha 

GO TO 


i?ki 


T 0 « J * - T o : J » » •«•»<!> 


t i <I m Wi o-Tcm - tp m » • u .-kgii ii 

hit 

G) TO «J 
NO 1 1 1 • - , 

to u»I f i Wo^6l o iWtit i 

M 

0 fO 0 3 

r J I 3»« t TTO-TUm I # K«.I6I 

fX 


!! 


u>> <?ro*To<i> i*t i.-Ktm-KMC ii 

«•» 

*to 03 


NJlil.u, 

L TtFH 

IJ:!! 


CALL 

TO! 


U •• TUI 2 I > 

lll«l?T0-T0l2ll # K0CFI 
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Qf POOR QUM.lt! 


4*1 


i*z 


211 


VSiIV.tfvo. 

if’ 1 


Tbl2ll'Mlil 


0 01 

(*)• (ffo-Tomm !.-«%<?> 


St TURN 

.MO 


«%un 


) CALL AUTPRA 


L'lU 

FUNCTION t,N&PCV(IRC.NC.N0C.NLRCI 
■»cAl NC.n 3C.NLAC 
IMlHC.CM.il GO TO t 

ms ,L 

IF (NC.( 

1215s' 


(NC.GT.4IIC I GO 
"* ,¥■ NLRg 


TO l 


i*id 
JUHROUT INC 


tNGfL 


awf 


Input RLOUHfcll (F'OM HIKCON) 


, - FIRST WUNWA T POSITION TO STAGE ENGINE FAILURE 

ITlllI- ANhAy A^OLIATLO WITH Jt.Fi 
HT2 - uCUl.D IfUNMAV P 


IIT2 - >tCU^O wUNWAT POSIT 
IT? (II - ANKAY A j jOC I A T t U W l 


- F I fc 3 T 
i- a Hat 


T AL T, 


HI 

I Hi ( I I 

H? - jiCONO.a 
IH2III- AHPAT AS 


ON TO STAGt ENGINE FAILURE 
h taf i 

c. ii - 


!P_STA&C.LNG.i4! FAILUPE IN ul IDE SLOPE 
FAILURE IN GLIOE SLOFE 


A j »OC I A T f 0 WITH H« 
•ALT. TO STAGE ENGINE 


- A HP A V A S iOL I A I l 0 WITH H . 

HHl - MPST ALT. fu STAGE LNG'Nl FAILURE IN Ft ARE 
HRlIll A R*» A Y AiGOCIATtO WITH MK1 

M «5ii,r ftSBMfcis.wJwilir 1 f * ,luM ,N rL ‘" 

Twi - fihsT T I ml AFTER IMPACT TO STAGE ENGlNc FAILURE 
TRiCII AWPAY ASSOCIATE!) WITH T'Ji 

■4? - StCOM TIHt A f TcR IMPACT TO STAGE ENGINE FAILURE 

fw?(II AN-'Ay ASSOCIATED WITH TwJ 
AP - P4UULCM PHASE lNOlCATOR 


HGCTF 


;i*MI 

input FPOM SOMUIKCOHI 


CONNON/OINCOH/OHKL JNI,HGC7F f ONc (11911, IAP,0M1(35I , 

•IC(S» .*PFl. I T 1 (•,» ,AftF? t lT? (5 I .HI, I HI (SI .H?. IH?(S», 

* HR1 ■ IHP I ( > I, HP?, lMP2|*t t TRi f ITRJ (Sl.TP?, lTR2(5l*0NA(ifl9lfHR f 
•OHS (lb I , M, 0H6(WI .OMMZQhef 


* R, 


INPUT 

TH 


FFOF AUTS 


OUTPUT GENEPATEO 

IC(II - INITIALIZATION OF FAILURE INOICATOR OF ENGINE I 

COMMON/ AUTSC/T0.TC • T3X. 
lTQA,TOO.TO(M, IRA,lBll,lRC. ICA.lLOt m 

5 ENGINE FAILUWE LOGIC 

: (ONCt An ENGINE f A ILS*HUST REMAIN FAILS 01 

\f (Hf.C7^!iKNlfi(J TO 11 
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G 

11 

u 

li 

21 

if 

*•1 

S 3 

SO 

If 

S) 


11 

20 

21 

12 

13 

o 


)tf(TU*N 


W.IMstiii 

If ( HOC f f . *1 .M2I*£TUPN 

IgriMSilti 

<*t iurfN 

If <Mw. (f T.HMi)CC TO 21 

fiifMSiliii 

4 f I Mf” , U T •'<'* I 

JO c 1 l«.i« 

IC (])*!*)*< I) 

Pt T'JPN 
If l{AP.«|{» f b v .*j 
if I N.LT. TwDCC 10 *1 
JO I • 1 • •• 

1C « I > * I T W t « 1 ) 

If lfp.lT . f »<)•<£ TU»N 

fc € ?1 * 1 ri* c 1 1 

Wf UJUU 

If IIP.IT.IHFUCO TO SI 
If IMW.L I.«*f 2>«CTU*N 

ic ill* nil i > 

»t TUPN 

6N0 

SUBROUT IN£ CtNGL 

COMMON t MG INI LOGIC 

INPUT fPOP UlNCOH 

IAP 


ILR 


COMMON/ 01 <1 JM/CMi I if>_8) , IAP v ON2t 3 J I v IIP, OM 3 I 226) •3HS(2 0S6) 


TC. 


NJC 


INPUT DOM AUTS 
1 * 0 . MC* NBC » KT . 


NTOG « NLNC 
GJTPJT f.cNcPAUD f ON TS 


COMMON/ AU I iC/T6,TC|T0l. 

1T06. 'Do.niSIf lMA.I«i|,lPC 1 ICA | I-.B. 

2<A ,*R,Kt A,< ( b.KT.UA.NNf.NC'NUUi , NO A , NBB .NBC » 
jNL^A.NlMO.NLPt.NSA.NOU.NOC.NTOA NTOB.NTOC 


lU N,UC.NUf.,NL JC.NTOC.NOC 
f I Il».tQ.llC0 TO 10 

s{ 

f IN.GI .*.IGC TO 2 c 

f i iPC.Ni.i ir.o to 21 

f INC.GT.MUC )G0 TO 21 
JC ■ N 
TUNN 
NJC *i . 

Pt TURN 

IfUT.Nu.DGO TO 11 
GO TO ..1 

T.SIGO TO 12 


NO 


is 


C.Ntok' 

TURN 
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HHKcTMMIo'Wh 

3 ? 95 #fc" c 

iuSflOUl INC CTCNOL 
COMMON I MU tNClNc LOGIC 
INPUT FPOM Alii s 

-TS; SV 8 ». H V 3 «: “t 2 ? , «I? e *o KCB ' M0C • T0 *’ 


IS 


is iS^UuA,’ NL 


OUTPUT GlNtNAflO FO* AUTS 
no, INC, NC, MIC, NLNC, NTOC, TC, FT, NOB 


on 

ni: ?ud 

COMMON/ Ayr SC ST*, TC, ID* 
T JA 


oUnmiN/Biji i ■*, IU«I 

*NfcB%(jNuU?!fcBA f NBB.NBC, 

JNL$A,NL«8,NLK,N0A, NOU,NOC,NToA .firOB.NTOC 


Me At FA , F fl • NA,NNb,NC,NRA , M 
, M L M J ,NL SC • NT OA , N TOU , NTOC 

in (lcA.£\. oi.Ino. ucb.cq. 


nc.nba, mbo.no: ,noa,nob,noc,nl»a, 


if ( jc a 7 t’V, C ?go^t o * 2 1* 

l 5 iIst»W »* ,6 ° T0 10 

MC»IKA 
n: • na 

N rf C * N 0 A 
NLPC*NL»A 
N f JC * N I OA 

t:»toa 
<r »<t a 
CALL CtNGL 
NJA«NOC 
TOil«KOMOF 
IRC* I bu 

NC - NNO 
NftC’NBB 

MLNC«NL»0 

NT0C=Nr08 

Tw«tua 

CALL^CtNOL 
NQO *NOC 
*£Tl 


on GO TO JO 


i 

<L i UNN 

10 nb’k. 

CALL UFSnj.,T0B» 

NC « NA 
NBC *N|j A 

nl*c«ul*a 

N f OC*N I OA 
TC » TDA 
Fl«FtA 
CALL CtNGL 

N J A ■ Ml)" 

TUPN 
20 nj»»,. 

CALL TFFS<IIO.,TOA» 
TJB«TU*-TOA 
r\ GO TO > 


O 

RtTU»N 

ENO 
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DERIVATION OF AERODYNAMIC WEIGHTING FACTORS 


AERODYNAMIC WEIGHTING FACTORS 


In the TOLA computer program, the aerodynamic effects are treated as con- 
centrated loads In the form of total aerodynamic forces and moments acting at 
a reference point on the airframe. These quantities are calculated In the 
aerodynamics subprogram (SACS) and are defined as follows: 
a - axial force (body axis) 
y - side force (body axis) 
nf - normal force (body axis) 

l - moment about body X axis 

m - moment about body Y axis 

n - moment about body Z axis 

To obtain realistic flexible body response to these aerodynamic loads, weight- 
ing effects or participation factors, PF(I), for the response of each normal 
mode are required. 

An approach to determine the weighting effect for the Z translational 
degree of freedom is given below. A similar method can be used to determine 
the remaining participation factors. 

In TOLA, the generalized aerodynamic force Is calculated as the product 
of the total lift, the vertical modal deflection at the reference point, and 
a participation factor 

QAz ■ “f *Z R PF 

If the actual generalized force due to aerodynamics is obtained by integrating 
tne product of tne pressure distribution and modal deflection over the lifting 
area, the expression for this quantity would be given as 

Qa z * J \ (x.y) P(x,y) dA 

Equating tne two force expressions, an equaticn for the participation factor 
can be ootained. 

(x,y) P(x,y)dA 
n f 

K 


PF - 


APPENDIX C 


PROGRAM LISTING, PLTDAT COMPUTER PROGRAM 


S7»ahfrmaiBK»»Wii;a»aHWW 


AP 

( *. 


• Avtl U.bl . 

•JPNU.bb*! .CNHOSISI ,0£PVAR(9I iL 1N£|T|.N0¥AI9 
OA T A Ci«C)i/‘.HPLOT,bHTITL£l,6MtlTL£2,e,HlNOV*P 


JATA NPUT/S 
«f AOJNPUT. I 
109 fOPMAT ( 16) 
HFAOISI NHL 
NN ■ C 

NCL » . 

NHL * NHL-1 


6 

1J 


1 S 

If 

ib 


5 J 
>1 


bU hc »ui nr« i • '*• 1 . 

9JJ FORHAT (lcAi.J) 


00 1C '4*1 » Nml 
P£A0(J» NT >N0 t ( 
10 b »C»HATl 2 Ib, J 
IF (ND.Gt, il 


N| ,NJ, (TITLE II), I-l, Nil 
Ib» 


103 


JAb) 

GO TO 

NS * N N ♦ 1 
nol «nol* i 

NOIL (NOL >«Nl 
FCPHAT < 1 J A 1 C > 

ENCCOE II Jj t lOO t Teur INSIMTITLEm .I»itNll 

NWaNH»NI 

GO TO 10 
uO a J* 1 » NO 


(NSll IJ, TITLE (11,1-1. Nil 


NQL«N0LM 
NOIL (NOL I *N I 
IFU.Lc.RIGO TO 


IF<J,Lc.<HGO TO 111 
cNCOJlU Jv.lt..TS0# 

FC-H-T u ill ;, a A ) » 

GO TJ 1W 

111 lNCOUC (1 Jj. W J.TBUF (NS II 1J, T I TLC I X I . !■ 1 , Nl I 

111 FORHAT(l J(**», tl.Aill 

112 Nrt iKN»HI 


CONI I NJ( 
CONTlNJi 
REAO(l) 


I A 


GO XalfMN 
OHH(. f I»«I.LbO 

LiNH(2, II fl.ib. 

«» . 

'(■it nol 

N I L * N □ 1 L (Nl 

n c. AO ( 3 I <3UF(I*N0ll t I-l.NlL) 
if Jt JF. J) JS 
N 0 I ■ NO I • N I c 
«<tAO(3i CNOPtJT 
N k I T t 1 •* » (tlOF(II , I«l,N*4l 


JO 3o 1 * 1 ■ N h 

UHH( II sANlNKBNH! 1,1} ,BJF(I II 
t>NN( J.II *AHA<l(dHHl2,ll # BjF(I II 

IF (K.GT.NPT 
GO TO J„ 

riTL£lltilj 


IF (K.&T.NPTSI GO TO Si 
GO TO J„ 

1.19 

■KH 

N I W ■ . 

Nu V ■ . 

*T i« , 

KT 2 *„ 

GALL PLOTS(UUN,OOH,l fc | 
CALL PL0T( ...it.-JI 
HlAO(NPUT,^-. I c hho t »- INl 


hi. 

I 

tbHOCPVAP/ 


C-2 


9 

1 

U 

2 


l&'4! r *5W • •" 

) GO 19 (80, 62.13, 6 

COMMA NO- *« A ly ! 

cNCOOc(N). 4W . ,riTLUin ILIN£( I> , 

KTiSKTtMfffL£h>«l>«l 

GO TO by 

<7f?<uuifk : iirts iy>MLiNC(i> • iai,%i 

C A L L ^F*f NO I TUUF.N-. LlNEIl !, NlV! 
in NlV.NE.,! GO TO f U 
P»» X N f Jl.(LlNEU) 


IL*1,1!*UMM*1,NIV! 
<2,1 !*8MN(2,NlVl 


'■"im j i . i l me i . i 

l- format** Improper independent variable-*, aio* 

3 AVAL 
AVAL 

GO TO ok 
6 NGV*. 

GO 64 N«1,S 

iF(LlN t I nI.E0.1M ! GO TO 67 
CALL fino*Thuf ,NM,L INC(N!,N0VA(N!! 

If (Nl)VA(N! ,N£j » GO TO ' 


68 

PRINT J2,.LlNE(NI 

2j FORMAT** IMPROPER GlPEnOcNT VARIABLE *,A1Q! 

r 

A 


STOP 
NO' 


6S 

bk 


)V«N-1 
GO TO t>: 

NGX*NOVA * N ! 

AVAL (1 ,N»1» «dMM( V, NO * ) 

AVAL *2.N»l) «BMM* J, NO JO 
call StALE*AVAL*l,N*l) ,6. ,2,11 
9 CONTINUE 
N0V»5 
GO 10 6. 

3 IF*nIV.NE. J) GO TO 81 
PRINT 33 J 

3- FORMAT** NO INOEPENOENT VARIABLE*! 

STOP 

1 IF ( NOV . ME • j | GO TO 82 
PRINT JLO 

k4 FORMAT** NO OEPENOENT VARIABLES* I 
STOP 

2 ^ IF (KTl.NE. .) CALL L ABF.L * 1. * 6 .5, 1 C. ,6.5 .TITLE *1! , KT 1, 

IFUfr.NE.* *.! CALL LAOELU. ,6. 1,10. ,b . t , T ITLE *5! «KT2, 

GAtL'l>L&T (&OV*.6*.5,., t -3! 

AXLtN*U.-Nt»V*.b 

GALL SCALc*AVAl *1.1! ,AXL£N,2,1! 

CALL AAIS*v , ,J. , T6uF*NIVI,-1C, AXLEN.J. , AVAL* 3,1 » ,AVAL< k, 1! 1 
GO 8 9 J * 1 • N OV 
JO *MliVA ( J! 

Ml MlNU k 
IP 3 

MtAUU! tilUF* I! , I*l t NNl 
IF (l OF , <• I 80,8*. 

VARINO* *HUF (NIV) - AVAL* i, 1) !/AV AL (N.l) 

VAROcP«* JUF (J0!-AVAL(3,J»1II/AVAL(4.J«1! 

IF ( I P , tQ , 3 ! CALL SYMBOL < VA RI NO, VAROEP. . 1,J, 0 -1 ! 
IFdP.Nt.J! CALL PLOT (VARINO, VAKOEP,2f 
IP«2 




°Oj. 


Qc 


% 


V 


C-3 


Kr.. i .y 


•s jj 


CALL A«I>|-I 
•AVAL I'm J*l» I 


Sf"80L I- U-l» • .fc-.*.,!. J,90.,*1» 


19 CONTlNJt 

CALL PL OT|AML£N*l. # e.,-J» 

oO TO ui. 

ti Jjll PLOTU..C. .9991 

Function <r«< istrc, isti 

s^snSi. it 

KTB«ls!*l*X 


nw j« uib* *i ✓; 


NHtTb»u*HOu uTb. 1. ) 
lTiT«]SH!f ! ifSfftGlNMO) 
!►' CilSI .Nc.S*tf) WlTUkn 
CONI iNUt 

XTU> . 


»N8I T 5 >.ANC. 179 


IXi* 

t’iO 

jOU^OuTINl f INOiTBUf .N*, CONP.N) 
UIHcNSION TQjfU) 

JO I 4 NI 1 ,NH 

ir (Tauf IN) .CQ.CONP) RF TURN 
CONI lNU£ 

ScTurn 

1*0 


C-4 


APPENDIX D 
RIGID BODY EXAMPLE 


D-l 


0 

1 

ro 



*) 


4 


t 


' 


0 

1 

u> 


IJI: i 

lift?: 

ATAj>i* 

XNClAli 

*TAill 

ATAU .2 

IjbA.S 

ATAj*, 

If.JA.b 
ATijib 
INDA 31 
ATAdbl 
I*bAb 2 
A T A 1*»2 

iN^Api 

ATAd53 
Inj-jd 
AT i -J ■> o 
I<C«3 7 
A T A J v 7 

IroUF 
iNJIbO 
ITi.A 
r r Adu 
Utfi. 
TUa.* 

ttaji; 

TTAd.. 
I T Ad 1 - 

HSii: 

TTAIi* 

TTAdl rf 

III.* 

Rt. M 

XbIRuT 

XSSS 

*< 

RY 

*2 

THtTAO 

RUR 

>* T IR£S 
RZtRO 

R 

Oc t r am 
RcT 

1 J J 

MAS -2 
MAS. 3 
«JN;M 

8 

VZ 

RZcRO 

VZtRO 

f 


• £ • b.2* 979c*4tA • ®94ibb*t*b 

(.l«)»li- 2 i 2 . kw »AAc«Z 

1 

74 • *7«J£ic-.: v -i. 9bS. *b4t-2 

S. 7 %uAMfc-M. 7 bA$bllc -2 

;.« 7 ^ 279 -* 4 » 1 . 23 Ml 2 E*] 

1 

> 

1 

/. j>iobfib:.-.j t ..7.2 797 2£-3 

A 

. -A.iiaflbJ.c-b, l.A-b52uAt.-> 

1 

• • 7 c* J » 7 • iA.fllci -1 

SCO 4&N&IXE fHRvlil J»TA 

1 

b 


» . . • * •• •• » Ja 
*-• 


5 *» 

SCO iiAujlwb 4EAR DATA 
i 

4-..*.., *7. .9597,27.1 9597 
4b..9.4,-2.A49b/ v *2.949»7 

- *i“#» JiJj 

;.9:o»7|.>.s$l4fM(ll 
« • 

b.b/ 

2 . »■»• v 

1. .*74 

• >y>.b 

Id ?4.>4 a v . 197 64444 

1 . 5 i*i 

t. 4:. «>S33£«S f 4 . l:2929U*l f 1. 91292I9£»S 
l.Z.lccb/.l.bll U.l.«ii 2 iU 

t».i •• « 

b,..,..,.«,- 7 ,.^ib».l,. 34 b,.b,. 34 b»l.t.J 3 F # i v l. v . 34 b 

1 . c, £• b ,t .0 

5.*wAAA,«.474£t<»a979? 

«*b25 • a f b. 42 — a • •»» 4 2 — a 

• a 10»<a9d.»,.*7lO<tA> t a<a7lb«»3S 
ali.<»;bbt a2o7jbll,a2b74bll 


LT t 4.lJl2S. 1. 13.29 


!• 

lb 

i! 

2 d 

i* 

bl 

bb 





i X *.1* 



fc 

11 


x! 




SJ. d*AK£ COMO. STAGE DATA 


*•*. PITCH AUTOPILOT DATA 
• & 


>•0 

TAM au* opi lot oata 

• 9 

..5 


Art. -4DLL AUTOPILOT OATA 


-.4!. 

>h.t hkottle autopilot data 


<•0. UKAKE AUTOPILOT DATA 


dCO iy/'JjHlhOL RcSPONSE OATA 
i*o 


dDU M. initialuatiov 






y/ t 

4 


c 


SI * STU0T 
iNOSOr 2 CASE L*OLL STAGE 1 PAGE • 


2SOF 


l: 


59.9992291E-01 1 1 . *.999986E ♦ C* .. .1 

j* t. sKrwwju-a 3. 


A!t!JHri(>|{ ?9.622C76lE*Cl X 0 lif s55 7 f f 1 1 1 29? 61S9998E O I 


-jl.'bsissjoo os iL’t&5:cuE*;£ 


!: 


99. 

# 

*!: 


WPCS 

38.7t8990:£»82 

TFFS 


0 . 


0 . 


o 


I. 


8 . 


SAC1 


29. 77*.58l9E-03-20.87%9S3 3E-3J 6t.975C5fr9E*02 I. 


AUTS 

AI.P0ES 

11. 53 0 3 0 &CE* 0 3 


Till 


8 . 


FLAPf 


1S.37816HE.33 0. 


PHIOES 


TTO 


0 . 


c. 


DELON ALPHAE ALP401 

26* 05*»w7bCf-Oi-lA.CJ2*i5JlE-O7 C. 

INTEG PTN. HT » l.«C)Cl»IE-ll 

2S0F 


0 

sS: 


c. L • 

l • kt 

9992281E-C1 1 1 .*9999061 C. 

G* w. 9b.l9229SJE-02 

0* w. 

VPCS 


PITCH AUTOPILOT 

ALPOOl ALPHET OELOOE 

-lt.0C2953lE.C7 26 .85 M.76CE-0 1 


ti!f 337 i 7 (C B i 2 IV.iSiiSSiitii ioltIs5*i /fit Si ? 9 *. 6 i 5999 O£* 0 i 5,< 

0l •«». , 3J.Z7«9E»54 !! 


i?: 


• 5 MU'W«ll 
3393 9C8E + 80 


cuum»ia 

33939881*88 


38.79899uCE»02 


IHOSOF 


SI * 
t 


i,u9 ’ 

CASE LROLC STAGE 1 


* 


TWS 

I. « 


SACl 


2S.77«.SAt9E-8WA.87*»9SnE-0S l».l7WiME-« •• 


AUTS 

AtROES RhTOES TT0 

6« C * 

OEtOM *tPHAc “-™ 01 

E7.SAJ72J«E-il-iA.032A53l£-07 C. 

STAGE 01 — OEC*. HR 


8. 


Till 


C. 

FLARE 


1S.328IA7CE-9S •• 


RITCH AUfORXLOT 

AC F 001 *LPHET OELOOE 

-lA.002GsilE-87 Zf •S687108E-81 


5,1 #t K5ILK l S t !iSWH*WoKI!i 1,u0 ’ 

INOSOr 2 CASE IfcOLl STAGE 1 PAGE 1C 

88“ SCO ll. smooth x-pact stage 
slcir 5 8C0 *®®^TiDgEi.r2goEi.fj 


2 so? 


c. 

st‘.9<H22AlE-ll 
C • 

5: 

11.9999966£*33 

i • 

9 • 

l • 
L . 
96. 

192291 SC-C2 

d: 
i : 

9337878E- 


§1 99998 C *81 

9mhti«:f* ti 

if. 3J93988E*8w 
¥• 

UIAN 










OELTA 

r 


P2 


FT 

SK 

SF 

AA 

ret 

S: 

3S.2«j^j:;e*;3 

i« 

i. 


0. 

J. 


ii.TMmx-ii-ii. 

S9.93l r <:sjE-i.l-X9. 

9S%m*E* 32-78. 
779999AE ♦ ) 3-39. 

Hiftfa:'} 

1: 

0* 

*• C • J2J «3C wE*. 3 

6. 


1. 


S9.93lS2tdC-8l-lO. 

7799996E* J 3-39. 

6383A99E»81 

i: 

PUTP 

¥GPT 


FTP I 


FT*Y 

FT»2 

PA 

P9 

OOCLTA 

33.bj; J.;CE-J2 
33.6330;6Cc«32 

29.615999C:*.1 
29.6.SS993E*.! 
2 9. 6 X59990E* : 1 

C. 

«• 

6. 


e. 

6. 

0. 


-i. a. 

-c. 1. 

•e. 2 . 

i* 

w« 

1. 


7«.H95l3i{-ll 

13.9r«6626E-0l 

13.9C96A26E-81 

SO 2 

SOI 


S 


S202 

$201 

$2 

OPETOl 

OPCT 

l- 

if • 

v* 


J- 


£• i* 

)• 


1. 

i* 

fc • 

ka 




c. i. 

1. 


J. 

c. 

6* 

1. 


o. 


8. 1. 

6. 


s: 

FTVA 

nw 


FT9C 


PTK 

PTf 

PTI 

ftp 

FTP 

C. 

t. 

»• 


0. 


t. 6. 

I. 


1. 

F2H 

Lit 


m 


m 





• • 

t. 

it 


6. 







VPCS 

J§.798993CE*02 


TFFS 

C. 6. 


* / 



M 

*A. 



( 


OklGii'IAL PAcu lb 

OF POOR QUALITY. 


5,1 oc «SEi.?5 l IS E E8?5ufW l Sio£5JS 

mosor f cast utott state & **cc 


&i 


e. s. 

Saci 

**• 7r*58m-J1-2g.87«,9SJ3£-;JJ f,. . 97S3 5&SE-1 2 0. 


4UTS 

K*OCS 

OcLQN 


nii 


Fl»E 


is.staiftrifei i. 


naocs 


at^nat 


TTO 


aLPKDi 


2r.533)22%e> 

aw* 

e: 

2**SJlC-3 7 l. 

Nfft 

NT£& 

%T*4» 

*TN. 

HT 

NT 

■ 

■ 


NT£G 

»TN. 

MT 

■ 

•it-TG 

•nic. 

9TN. 

<IW. 

mT 

hT 

8 

8 

1 • t j . j « jp . £~ • 3 

•4t'G 
1 T£ G 

»Tn. 

HT 

HT 

• 

s 

.3iLt-.3 
i. k -:j.jjitk-;3 
*i*.3 

NtiG 

■»T*. 

hT 

s 

filet 

?T’i. 

hT 

8 

•; c-„j 

NtiG 

*Ttt. 

hT 

8 


•4f£G 

s>Tr*. 

H ! 

8 


•l T •: G 

•»Tn. 

Kl 

8 


Mfc G 

91*. 

hT 

8 


<T£G 

»Tn. 

HT 

8 

»• V«#.Gj3>ifcfc-. 3 
I.*:.;- juf-.s 

•<T£G 

«T*. 

mT 

8 

•<T-_G 

■*TU. 

hT 

8 


NltG 

»T*. 

hT 

* 


»T£G 

ofn. 

hT 

8 

: . . t - . 3 

InMG 

*1*4. 

Ml 

8 


n T 

*1*4. 

mT 

8 

i ...i-.i 

*1T£G 

*lN. 

hT 

8 


•« t£ G 

6fl. 

Hi 

8 


UT- G 

•«t:g 

S.JN. 

*Tn. 

HT 

8 

8 


2JSS 

*T*. 

Hi 

Ml 

8 

8 


MT£f. 

*|N. 

•*T*. 

H| 

*! 

8 

8 


■ 4 Tic. 

*|N. 

hT 

8 


M T£G 

rfTN. 

HT 

8 

i.. J*..jJ.t C-G3 


rxrcn auroriioT 

nwoi at^MCT ociooc 

•• -n.ijnsm-er tr.umiic-a 


D-ll 


IMOSOF 2 

j.i3i:oo::£-.3 
— i 
X.l.-C. JCtt-„3 

:.i.c :t; jjic-.-j 

l.fcj;.. 

l.l J 

x* c . c r r r t- . s 

i. w * j w . ; .c c- v 3 

1 » c 

X.ik.Jtft.fJ 

l.*0CtwJ.CL-.3 

l.li fc -;C3U-.3 


-Xc&&*«ff,E 3 t EES? u ?M c SJeS^; 3 STU0 ' 


CASE ISOIL 


ST AGE l 


JJE-83 5 ; .vUuCa:£t-.3 j*.. 8031»5?E*0J 0. 96.92S5670E-I1 2S.e: 2T3ifcr*3i 0 t« 


96.7S29236E-C2 


•2 6. 79 J 11 33£ * C J l2.*67lC£GEO% t! 


33l9920E«6C 

SO<iM3C*ll 


35.2«0.33C£O3 *. 

] c. 


33.633i3utE-32 29 . 59697 . 7£ 1 


, i , 5 it 5 !t*l' 0 l * 38 * 9 > 4 '^ yssE * 3 2 - 7 «.e 562277 f *31 |. 


omioi 


ooriTft 


ORIGINAL PAGE IS 
0F POOR QUALITY 


D-12 


$1* DCG«ttS U£ r*tcuv« riiwi r*tN «•«,« 
GCnCbacI/CO COMPUTE* P*OG»AH 


IHOSOF 


CASE 1*011 


3a.Tfct9n.iE02 


SWi 

3a.01fc2fc93E-t3-tl.9T7t:a9C-t3 tMZfcMIiMt 0. 


It .i977fcfl4E-33 I. 


AL*OES 

a. 


*HI0ES 


tL*Mt£ 


a ip*ni 


ta. 333o1S.c-3l fcl.*932fcl7E-t3 It. *fcSI«atC»ll I. 

!"»if *!3: « : 

I!!!* K5: h? : i:sr:;S*3t|:y| 

m »!: K; : 

iT t C *T*. hT . 

[HUG »TN. Mf ■ 

iNTif. WTH. NT « i.fcl.tJJfU-! 5 

NUG -IN. HT « l.tob l.i.v.t- 3 

[Mljt «T*. hT • 

[sl£G *TM. HT « 

[h?;g ST*. HT « 


PITCH AUTOPILOT 

AlPMfT OCIOOC 

il.o99?fclTE-03 ta.UJMM!-}! 


-TTN. 
I nT£ f. *!•«. 
IMTcG RTJI. 


I.-.KtSj.Ic-.J 

Ttkl . y i . J.C-.S 


“* 5TU0T 


Itosor i 

i*t w’** 

xlwtc**r 5:' t-<3 
rV*^* <!t-i-’*2 
Uia 3 

l.«% li.i.ti* . 3 
X.U.bjJ, 

!• k<! • « « »L* . £ 

i::i':i:;.V:il 

l:±hUa::l 

1 *1 » .rffc J. C t“ . 3 
J 

1* «ihlt katl'k) 
!• fci • 

.j :;„w f .-.t-.3 

• • k J» * 1 0 . 1 1 * % 3 

i.totv ..L'.U-.3 
laol'u.U*. 3 


lV.633-J33E-iZ X ?9 . S9&S M ,£♦ «3 
»• *»® • 19A*%5 wC“* % >.• 

6*.t3?mrE-4l i l.o?5/3bl* »iw 4 . 

i. a. 39.sm:ME-;? 


CASE L*OLC 


STAGE 1 


MiCHJ J. SS.riOCSm-Cl 2I.T7F$fKCOt I. SI. 

9:K»!ffi:H *7:* m "“** J: 

:SSE-to? 3 . -ET. 2 ia 3 lE 3 E »03 l 2 .^ 7 UkiE»^ A. |. 


«1M37(E*K 

3)«k|tl(»«| 


3S.2«G.Ji4i*;3 
*l» . 3 2 <4 to -iw It ♦ v 3 
Ga.323:C03£*C3 


»».1« .‘•T.b|-;i-3A.SSi.srb5£*:t-T|.«5A?2fr|*;i |. 


»00d jo 

i^Niamci 


SII DECREES OF F«EDON FLTCHf P»Tm STuOT 
GEMtPAlXIED COnPUtM PPCCVA" 



UK’S or 

2 CASE 

LtOLL 

STAGE 1 PACE IS 




NUVP 

VGPT 


PTM 


rr»T 

rrti na 


NO 

OOCLTA 

J3.AC;jJ3JE-82 
Jl.tccj: jje -82 

2S.5»7Arj$E*;i 

l. 

V. 


fc. 

!: 


-a. «. 

S: 

a. 

a. 

8. 


-rs.AssbaiFE 
-*a. i|$t T2ic 
-AA. 1M172JE 

S02 

sot 


S 


S202 

$201 S2 


ONETOl 

ONET 

C. 

■ 

e. 

* • 


5* 


5* 5* 

a. 


a. 

j* 

t. 

l • 


i. 


#• j. 

a. 


a. 


*• 

4 • 


w • 


b. 8. 

•• 


A. 

FfU 

FTPS 


FfPC 


NTl 

NTT ATI 


PIN 

Pro 

1. 

A. 

b. 


a. 


a. a. 

a. 


a. 

fin 

LH 


nn 


NH 





k. 

VPCS 

8. 

<• 


3. 






SI.74>S9«I0(.E»Q2 










TFFS 










S. 

• | 

0. 









1 

• - 




• 

Till 





I. 


3. 







SACl 










43.27AbUU-a*-23.118SAblE-8J 

A3. 

33AS12SE-82 

a. 


a. H.M7tlt7MA 

a. 



AUTS 






PL APE 




At POES 

PHIOES 


TTO 








8. 

1* 




PITCH AUTOPILOT 




OtLON 

ALPHAE 


ALPHOl 


ALPOOl 

ALPMCT OEtODC 





l2.573t:AAE-02 

& 2* 

9li9S99E-ei 

a. 


12. SMA jAAE-82 2*.12b$9bAE-3t 







'MO 


* 

A 


«S 

•5 Ci 

Q 2 
O > 
JS i— 


23 

X* Cj 



< w 


;.<».2.979E-3,8.693lf»64.E-4» 


rrV * 


inoa:; 

at«u«: 

AT AT:; 
Inja;2 
A T A i» i 2 
IN0A1S 
AT A I;, 
I NUA 1 6 
AT A i;S 

I NOV 1 


AT A»t vl 
XN0A*-2 
AT 8162 
lNDi*,J 
A T A 9 3 
I NUA*; 6 
ATAH«6 
X*iCAr7 
A T AOf 7 
RE H 
INUTFF 
I NOT SO 
XI lit 
TTAB13 
T T AT; 2 
TTA-j;: 


TTA JiC 
TTtaia 
TTA3; V 

ttaji: 

TTAB1C 

TTA-liS 

TTA »;i 

ITlJW 

r: m 

NiTRUT 

HASS 

RX 

RY 

RZ 


ThETAO 

£ro:c 


NTIRES 

rzerc. 

M 

OELT AH 

RLT 

IFO 

AX 

?TARC2 
FTAO' 3 
HOH-NT 

3? 

VZ 

RZERO 

VZERO 


<>.i<)S;e-2»m;aaae-2 

1 

-3.97S3Cl£-2,*J.965;34.9E-2 
5. 7<.5Z<,4.8C-2 v J.76«»5688C-2 


l.*.7> % 27A£-3,l.Z35w3l2e-3 

-i.7^5E-Z,-i.4.5£-2 

1 

1.2S£-«,5.9£-j 

I 

7.35i54»8bc-3,:..7*2797ifc- J 

-3.2l«.775ZE-*,,l.;Z3fl92flE-3 

: 

-i.:i6«(.3;c-4, i.e.6t»2bdt-> 
l 

8.7£-3,7. HlAlIZc-] 


BCD !^^ 3 fJ2SJ? 3 5 £ A?J 


**•»•- 
t. * 


0» 

tM.t 

A. 

0. ... 


•*i *1 * i s .5|4.f.Sfl.tl.tt2< 
• c , • 3 


■ **»• 


U • 


w •* :• ,C. 
• ** •* 


SCO JLA'OlNo sear oata 
3 

*..9*.,. - .,27.195^7,2 7.. q3 8 7 
35. .H J3.-2.fl-'6 67,-2.83867 
C..-T. 3>33. ♦1.3333 
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